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ABSTRACT 


This  dissertation  presents  a  method  of  predicting  the 
load-deformation  response  of  a  reinforced  concrete  member 
under  repeated  reversing  cyclic  load.  Deformations  due  to 
flexure,  shear  and  axial  load  are  accounted  for  at  all 
times  using  separate  hysteresis  loops  for  flexure  and  shear. 

A  method  of  predicting  the  response  of  a  reinforced 
concrete  frame  subjected  to  an  earthquake  loading  is  pre¬ 
sented.  The  method  accounts  for  deformations  in  addition 
to  elastic  flexural  deformations  by  introducing  an  equiva¬ 
lent  rotational  spring  at  each  member  end.  By  defining  the 
properties  of  the  spring  properly,  the  response  of  the 
model  can  closely  simulate  that  of  the  actual  member. 

Standard  slope  deflection  equations  are  modified  to 
accommodate  elastic  members  with  rotational  springs  at 
their  ends.  When  these  equations  are  used  to  construct  the 
frame  stiffness  matrix,  computations  in  the  inelastic  range 
can  be  done  in  the  same  manner  as  those  in  the  elastic 
range.  The  stiffness  matrix  is  thus  updated  to  be  compat¬ 
ible  with  the  deteriorated  structure  at  each  instant  of  the 
motion.  The  equations  of  motion  are  solved  using  a  linear 
acceleration  method. 

A  behavioral  study  is  presented  based  on  the  analyses 
of  seven  twenty  story  shear  wall  structures.  Variables  with¬ 
in  the  behavioral  study  were  horizontal  force  factor  K, shear 


IV 


stiffness  and  taper.  The  results  of  the  behavioral  study  are 
discussed  and  compared  and  conclusions  drawn. 
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Chapter  1 
INTRODUCTION 

1-1  Observed  Performance  of  Reinforced  Concrete 
Buildings  under  Earthquake  Loading 

1  2  2  4  7 

A  study  of  the  literature  '  '  '  '  on  the  structural 

damage  incurred  by  buildings  subjected  to  major  earthquakes 
reveals  that  those  buildings  most  severely  damaged  were 
those  possessing  design  faults  with  respect  to  earthquake 
resistance.  Next  were  those  buildings  having  structural 
frames  or  elements  with  limited  ductility.  Buildings  which 
by  design  had  adequate  ductility,  although  possibly  severely 
deformed,  still  possessed  their  integrity. 

Because  ductile  moment-resisting  frames  have  per¬ 
formed  well  under  earthquakes,  they  have  become  the  standard 
for  earthquake  resistant  design.  However,  recent  earth¬ 
quakes  have  shown  that  ductile  beam-column  frames  may  be  too 
flexible.  Although  this  type  of  frame  assures  limited 
structural  distress,  high  story  to  story  deflections  may 
occur  causing  heavy  damage  to  the  non-structural  elements 
of  the  building  (finishes,  partitions,  glass,  mechanical  and 
electrical  equipment)  which  together  can  comprise  up  to  80% 
of  the  cost  of  a  building. 

Structures  possessing  greater  rigidity  such  as  those 
with  shear  walls  are  presently  being  thought  desirable  due 
to  their  ability  to  limit  non-structural  damage.  Shear  wall- 
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frame  structures  possessing  necessary  damage  control  backed 
up  by  a  moment-resisting  frame  as  a  second  line  of  defense 
seem  to  offer  considerable  advantages  over  moment-resisting 
beam-column  frames. ^ 

1-2  Present  Philosophy  for  Earthquake  Resistant 

Reinforced  Concrete  Structures^ 

The  performance  criteria  of  most  earthquake  code 
8,9,10,11  provisions  require  that  a  structure  be  able  to: 

(1)  resist  minor  earthquakes  without  damage 

(2)  resist  moderate  earthquakes  with  minor  structural 
and  some  non-structural  damage 

(3)  resist  major  catastrophic  earthquakes  without 
collapse 

Collapse  is  defined  as  that  state  when  occupants 
cannot  escape  from  a  building  because  of  failure  of  the 
structure. 

The  above  performance  criteria  allow  only  for  the 
effects  of  a  typical  earthquake  ground  shaking.  The  effects 
of  slides,  subsidence  or  active  faulting  in  the  immediate 
vicinity  of  a  structure,  which  may  accompany  an  earthquake 
are  not  considered. 

Code  guidelines  for  the  day-to-day  design  of  earth¬ 
quake  resistant  structures  must  compromise  exactitude  and 
realism  for  speed  and  simplicity  of  application.  The  result 
of  this  is  a  partly  rational,  partly  empirical  prescription 
of  equivalent  static  forces  to  simulate  earthquake  induced 
inertial  forces.  Such  a  loading  is  assumed  to  be  resisted 
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by  the  structure  within  its  elastic  working  range  of  stresses. 

The  code  specified  equivalent  forces  are  considerably 
smaller  than  those  which  would  be  developed  in  a  structure 
responding  elastically  to  an  earthquake  with  an  intensity 
such  as  the  1940  El  Centro,  California  earthquake.  Buildings 
designed  under  present  codes  would  be  expected  to  undergo 
lateral  displacements  approximately  5  times  those  resulting 
from  code  specified  equivalent  static  forces  when  subjected 
to  an  El  Centro  type  base  motion.  These  large  deformations 
would  indicate  yielding  in  many  members  of  the  structure, 
and  this  is  the  intent  of  the  codes.  The  acceptance  of  the 
fact  that  it  is  not  economical  to  design  most  multistory 
buildings  to  resist  major  earthquakes  elastically  and  the 
recognition  of  the  capacity  of  structures  possessing  ade¬ 
quate  strength  and  ductility  to  withstand  major  earthquakes 
by  responding  inelastically ,  lies  behind  the  relatively  low 
forces  specified  by  the  codes  coupled  with  the  requirements 
for  ductility  in  the  structure,  particularly  at  member 

g 

joints.  Analytical  studies  have  shown  that  20  story  rein¬ 
forced  concrete  building  frames  designed  to  resist  code- 
specified  lateral  forces  elastically,  would  in  fact  respond 
inelastically  under  an  El  Centro  type  earthquake.  The  cal¬ 
culated  ductility  ratios,  defined  as  the  ratio  of  maximum 
to  yield  deformation,  ranged  from  4  to  6. 

The  capacity  of  a  structure  to  deform  in  a  ductile 
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manner,  that  is,  to  deform  beyond  the  yield  limit  without 
significant  loss  of  strength,  allows  such  a  structure  to 
absorb  and/or  dissipate  a  significant  portion  of  the 
energy  from  an  earthquake  without  serious  damage. 

1-3  Purpose  of  Investigation 

Accepting  present  code  philosphy  and  acknowledging 
the  apparent  desirability  of  shear  wall  buildings  in  resist¬ 
ing  earthquake  induced  loadings,  the  first  objective  of  this 
dissertation  is  to  develop  a  reasonably  realistic  analysis 
procedure  to  model  the  behavior  of  a  shear  wall  under  major 
earthquake  induced  loadings  so  that  strength  and  deformation 
requirements  can  be  examined. 

The  second  objective  of  this  dissertation  is  to 
present  the  results  of  a  behavioral  study  performed  using 
the  analytical  procedure.  Seven  twenty  story  shear  walls 
were  analyzed.  The  structure  analyzed  was  a  typical  high- 
rise  apartment  building  wherein  all  lateral  and  axial  forces 
are  carried  by  shear  walls. 

The  following  factors  were  considered  in  the  behav¬ 
ioral  study: 

1.  Ratio  of  ultimate  moment  of  shear  wall  to  design 
seismic  moment. 

2.  Cross-sectional  shape  of  shear  wall. 


3.  Taper  of  shear  wall. 
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Chapter  2 
PREVIOUS  RESEARCH. 

2-1  Review  of  Previous  Studies 

This  chapter  represents  an  attempt  to  review  the 
present  state  of  knowledge  concerning  reinforced  concrete 
members  and  frames  under  repeated  reversed  cyclic  loading. 
Observed  experimental  member  response  will  first  be  discus¬ 
sed.  Methods  of  predicting  member  responses  will  be  consid¬ 
ered  next.  Observations  determined  from  frame  analyses 
using  various  member  response  expressions  are  then  studied. 

2-2  Member  Response  to  Repeated  Reversed  Cyclic  Load 

The  load-deflection  response  of  a  typical  under¬ 
reinforced  concrete  beam  under  monotonically  increasing  load 
is  shown  in  Fig.  2-1.  The  response  of  such  a  beam  consists 
essentially  of  three  sloping  lines,  the  end  coordinates  of 
which  represent  the  deformation  and  load  corresponding  to 
flexural  cracking,  yield  of  tensile  steel,  and  the  ultimate 
strength  of  the  beam.  The  slope  of  the  line  at  any  point 
represents  the  stiffness  of  the  beam.  Members  having  this 
type  of  load-deflection  response  are  considered  desirable 
in  all  load  situations  because: 

1.  they  maintain  their  ability  to  hold  load  at  defor¬ 
mations  greater  than  yield  thus  allowing  redistribution  of 
load  from  section  to  section  within  the  structure. 
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2.  the  large  amount  of  deformation  after  the  yield  load 
indicates  a  ductile  failure  giving  adequate  warning  of  over¬ 
load  in  static  load  situations. 

3.  the  large  amount  of  deformation  after  the  yield  load 
allows  the  cross-section  to  absorb  energy  in  seismic  load 
situations  or  other  conditions  requiring  energy  absorption. 

It  is  the  intention  of  most  building  codes  that  this 
type  of  behavior  should  be  preserved  in  all  members  in  all 
loading  situations.  Any  action  which  an  engineer  can  take 
to  extend  the  ability  of  a  member  to  sustain  load  and  defor¬ 
mation  to  required  levels  is  considered  desirable.  These 
actions,  usually  involved  with  delaying  the  occurence  of 
tensile  steel  fractures,  concrete  crushing, compression 
steel  buckling,  and  shear  failures  have  been  the  subject  of 
a  large  number  of  research  papers  involving  reinforced  con¬ 
crete.  Only  a  few  of  these  concerned  with  reinforced  con¬ 
crete  members  under  repeated  reversed  cyclic  loading  will 
be  mentioned  here  however. 

The  load-tip  deflection  response  of  a  doubly-rein- 

12 

forced  concrete  member,  containing  more  stirrups  than 
required  by  conventional  design,  subjected  to  repeated 
reversed  moment  and  shear  is  shown  in  Fig.  2-2.  The  follow¬ 
ing  observations  can  be  made  from  this  figure: 

1.  The  toad-deformation  response  is  similar  in  both 
directions  of  loading. 

2.  There  is  no  significant  drop  in  load  capacity  for 
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succeeding  large  deformation  cycles. 

3.  Two  kinds  of  hysteresis  loops  can  be  disting¬ 
uished.  Before  large  deformation  cycles  the  loops  are 
stable  and  spindle  shaped.  During  large  deformation  cycles 
the  loops  take  on  a  pinched  shape. 

4.  The  member  is  subject  to  stiffness  degradation,  ie. 
the  slope  of  the  line  describing  the  relationship  between 
load  and  deformation  below  yield  level  decreases. 

The  noticeable  degradation  of  unloading  stiffness  was 
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described  by  Burns  and  Siess.  '  They  found  they  could  re¬ 
late  the  unloading  stiffness  to  the  magnitude  of  the  "damage 
ratio"  expressed  as  the  ratio  of  the  present  plastic  defor¬ 
mation  to  the  total  plastic  deformation  at  failure.  Mater¬ 
ial  considerations  corresponding  to  this  were  not  considered. 

In  describing  the  pinched  shaped  load-deformation 
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hysteresis  loops,  Park,  Kent  and  Sampson  concluded  that 
over  a  large  portion  of  the  response  for  beams,  the  moment 
is  carried  by  a  steel  couple  alone.  This  phenomenon  is  due 
to  the  yielding  of  steel  in  tension  causing  cracks  in  the 
tension  zone  which,  because  of  the  plastic  elongation  of 
the  steel,  do  not  close  when  the  moment  is  returned  to  zero. 
When  the  direction  of  moment  is  changed,  that  steel  is  put 
into  compression  and  must  carry  all  of  the  compressive  force 
because  cracks  now  exist  in  the  compression  zone.  The  steel 
must  yield  in  compression  before  these  cracks  close  and  en¬ 
able  some  of  the  compressive  force  to  be  carried  by  the 
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concrete. 

It  is  evident  that  the  flexural  stiffness  of  the  sec¬ 
tion  is  reduced  when  the  moment  is  being  carried  by  a  steel 
couple  alone  but  increases  when  the  concrete  begins  to  carry 
compression.  The  increase  in  stiffness  due  to  closing  of 
the  cracks  in  the  compression  zone  is  more  sudden  in  theore¬ 
tical  curves  than  in  test  curves.  This  is  probably  because 
in  practice  some  compression  can  be  carried  across  cracks 
before  they  close.  Particles  of  concrete  which  flake  off 
during  cracking  and  small  relative  shear  displacements  along 
the  cracks  cause  compression  to  be  transferred  across  the 
cracks  gradually  as  high  spots  come  into  contact  rather  than 
suddenly  as  implied  by  theory.  Nevertheless,  it  is  evident 
that  the  presence  of  open  cracks  in  the  compression  zone 
which  eventually  close  causes  a  marked  pinching  in  of  the 
moment-curvature  response. 

1 6 

A  second  load-tip  deflection  response  is  shown  in 
Fig.  2-3.  This  beam  displayed  similar  characteristics  to 
those  shown  in  Fig.  2-2  except  that  its  load  carrying  ability 
degrades  and  its  stiffness  degradation  is  more  substantial. 

The  improvement  in  response  of  Fig.  2-2  over  Fig. 2-3 
has  principally  evolved  through  the  inclusion  of  compression, 
confining  and  shear  reinforcing  steel  within  the  body  of  the 
reinforced  concrete  member.  It  has  even  been  suggested  that 
the  members  of  an  earthquake  resistant  structure  should  have 
stirrups  for  the  total  shear  corresponding  to  the  maximum 
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moment  the  cross-section  can  reach  at  any  strain  rate.  The 

main  reason  for  this  is  to  counteract  the  following  mechan- 
isms  described  by  Popov, Bertero  and  Krawinkler  in  their  dis¬ 
cussion  of  the  deterioration  of  shear  resistance: 

1.  Deterioration  of  Shear  Resisting  Capacity  of  Stirrups 
under  Load  Reversals 

The  presence  of  web  reinforcement  impedes  the  growth 
of  diagonal  tension  cracks  and  reduces  their  penetration  into 
the  compression  zone,  leaving  more  uncracked  concrete  at  the 
head  of  the  crack  to  resist  the  combined  action  of  shear  and 
compression.  Prior  to  yielding  of  the  stirrups  they  limit 
crack  widths  allowing  aggregate  interlock  and  dowel  action 
to  develop.  Closed  stirrups  confine  the  concrete  core  and 
permit  larger  concrete  strains  to  be  attained  than  in  uncon¬ 
fined  concrete.  Stirrups  also  provide  support  for  longitud¬ 
inal  reinforcement  so  that  buckling  of  the  compression 
reinforcement  is  delayed. 

Load  reversals  reduce  the  effectiveness  of  the  stir¬ 
rups  in  performing  these  functions.  After  diagonal  tension 
cracks  occur,  the  portions  of  the  web  reinforcement  where 
these  cracks  cross  the  stirrups  undergo  cycles  of  unidirect¬ 
ional  straining  that  may  lead  to  a  gradual  reduction  of  the 
bond  between  stirrups  and  concrete.  Further  deterioration  can 
occur  from  motion  of  the  concrete  along  diagonal  cracks  lead¬ 
ing  to  a  reduction  in  aggregate  interlock  and  stirrup  bond. 
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A  secondary  effect  which  may  be  related  to  the  lessen¬ 
ing  of  stirrup  effectiveness  in  controlling  cracking  is 
that  if  flexural  and  diagonal  tension  cracks  are  present 
in  both  directions  from  preceding  load  reversals,  the  com¬ 
pression  zone  at  the  tip  of  the  diagonal  tension  crack  may 
be  fractured  by  flexural  cracks.  Then  the  shear  resistance 
of  the  compression  zone  has  to  depend  mainly  on  dowel  action 
in  the  compression  steel  and  on  aggregate  interlocking  re¬ 
sistance.  This  together  with  the  deterioration  in  the  web 
reinforcement  bond  is  believed  to  be  the  main  reason  for 
the  deterioration  of  the  shear  resistance  of  beams  with 
diagonal  cracks  across  the  whole  beam  subject  to  repeated 
reversing  load.  This  deterioration  is  evidenced  simultan¬ 
eously  by  a  drop  in  resistance  and  large  displacements 
across  the  main  diagonal  cracks. 

2.  Dowel  Action  and  Loss  of  Bond  in  Longitudinal 
Steel  Bars 

Bond  stresses  in  the  longitudinal  bars  tend  to  build 
up  close  to  the  flexural  cracks  and  can  lead  to  deteriora¬ 
tion  of  bond  under  cyclic  loading.  The  prying  action  of 
the  dowel  shear  accelerates  the  deterioration  of  bond  be¬ 
tween  the  longitudinal  steel  and  the  concrete.  As  a 
consequence,  the  composite  action  of  steel  and  concrete 
deteriorates  and  the  beam  stiffness  decreases. 

3.  Abrasion  of  Cracked  Surfaces  and  Aggregate  Inter¬ 
locking  Resistance. 
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The  nature  of  aggregate  interlocking  shear  resist¬ 
ance  under  monotonic  loading  was  investigated  among  others 

17 

by  Fenwick  and  Paulay  who  formulated  a  semi- empirical 
equation  for  its  analysis.  Aggregate  interlocking  shear 
is  related  to  the  width  of  the  diagonal  tension  cracks,  shear 
displacements  across  the  cracks  and  concrete  strength.  This 
kind  of  resistance  is  weakened  under  load  reversals  by 
abrasion  of  the  two  contacting  surfaces  at  the  cracks.  Sur¬ 
face  granules  wear  off,  crack  widths  may  increase,  and  inter¬ 
locking  resistance  may  deteriorate  substantially. 

The  effects  described  by  Popov,  Bertero  and  Kraw- 
inkler  for  members  with  inclined  cracks  are  substantiated  by 
Brown  and  Jirsa^  in  their  discussion  of  the  mechanism  of 
shear  resistance  and  its  deterioration  for  the  more  serious 
case  of  a  member  which  has  been  flexurally  cracked  through¬ 
out  perpendicular  to  its  longitudinal  axis  during  the  course 
of  its  repeated  reversed  cyclic  loading.  Brown  and  Jirsa 
thought  that  before  a  design  method  could  be  developed 
which  would  predict  the  shear  capacity  of  flexurally  cracked 
beams  under  load  reversals,  research  would  be  needed  which 
related  the  shear  transfer  capacity  across  cracked  sections 
to  the  number  and  intensity  of  cycles  of  load  reversal. 

They  felt  that  the  shear  friction  technique  used  in  the 
design  of  brackets  and  corbels  might  be  adaptable  to  this 
problem.  Using  such  a  technique,  a  coefficient  of  friction, 
dependent  upon  the  intensity  of  the  load  or  deformation  and 
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number  of  load  cycles,  might  be  developed  and  used  to  deter¬ 
mine  the  shear  transfer  capacity  of  the  concrete.  To  date, 
Brown  and  Jirsa  have  not  published  any  information  concerning 
their  suggestions. 

1 8 

Wight  and  Sozen  emphasized  the  need  to  consider  the 
possible  reduction  in  shear  strength  of  reinforced  concrete 
members  loaded  to  deflections  which  correspond  to  strains  in 
the  concrete  compression  zone  leading  to  splitting  cracks. 

A  comparison  of  their  specimens  with  and  without  axial  load 
indicated  the  following  for  specimens  with  the  same  trans¬ 
verse  reinforcement  ratio: 

(1)  During  cycles  with  the  same  ratio  of  maximum  deflec¬ 
tion  to  yield  deflection,  the  specimens  without  an  axial 
load  suffered  a  more  rapid  decrease  in  strength  with  each 
complete  cycle  of  load  reversal. 

(2)  The  strain  hardening  slope  in  the  shear-deflection 
curves  beyond  yield  was  steeper  for  the  specimens  without 
an  axial  load. 

(3)  The  specimens  with  axial  loads  had  higher  yield  and 
ultimate  shear  capacities. 

Axial  load  hindered  the  opening  of  inclined  cracks 
and  closed  flexure  shear  cracks  opened  in  the  previous  half 
cycl®»  In  the  specimens  with  no  axial  load,  the  flexure 
shear  cracks  usually  opened  wider  and  the  cracks  formed  in 
the  previous  half  cycle  did  not  always  close  when  the  load 
was  reversed,  resulting  in  the  formation  of  nearly  vertical 
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cracks  which  were  continuous  throughout  the  total  depth  of 
the  specimens.  This  phenomenon  tended  to  increase  the 
length  of  the  range  of  low  stiffness  in  the  load-deflection 
relationships . 

Test  results  quoted  by  Bertero^  at  high  axial  load 
levels  show  that  the  reduction  in  strength,  deformational 
energy  absorption  and  energy  dissipation  capacities  increases 
with  the  number  of  cycles  of  repeated  reversed  loadings. 
However,  for  columns  with  shear  span  ratios  larger  than  2, 
by  increasing  the  amount  of  web  reinforcement,  especially 
by  decreasing  the  spacing  of  hoops,  the  reduction  is  limited 
and  it  is  possible  to  have  very  ductile  column  behavior  even 
under  high  axial  loads  and  large  numbers  of  repeated  alter¬ 
nating  bending  moment  cycles. 

Very  short  columns  in  which  shear  forces  predominate 

20 

become  brittle.  Studies  carried  out  by  Yamada  on  very 
short  columns  (shear  span  ratio  =  1.2)  subjected  to  constant 
high  axial  forces  and  repeated  alternating  transverse  loads 
show  that  when  the  web  reinforcement  ratio  is  less  than  0.44%, 
the  columns  show  an  explosive  brittle  failure  immediately 
after  diagonal  cracking.  On  the  other  hand,  columns  with 
web  reinforcement  ratios  equal  to  or  larger  than  0.88% 
showed  ductility  after  diagonal  cracking.  Yamada  concluded 
that  the  web  reinforcement  ratios  necessary  to  prevent  a 
shear  explosion  failure  and  to  give  sufficient  ductility 
under  the  effect  of  severe  ground  motion  are  shown  by  tests  - 
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to  be  larger  than  1%.  This  requires  very  closely  spaced 
hoops . 

2-3  Member  Response 

Load-deformation  responses  have  traditionally  been  cal¬ 
culated  by  integrating  beam  curvatures  thus  considering  only 
the  flexural  component  of  deformation.  Shear  deformations 
are  usually  considered  insignificant.  This  has  led  to 
excellent  results  especially  for  steel  members.  The  deflections 
of  concrete  beams  under  monotonic  loading  are  generally  cal¬ 
culated  in  the  same  manner.  One  must  however  consider  both 
flexural  and  shear  deformations  in  reinforced  concrete  mem¬ 
bers  under  repeated  reversing  cyclic  load  subject  to  flexural 
and  shear  stiffness  degradation,  as  each  form  a  significant 
part  of  the  total  member  deformation i 

2-3-1  Member  Response  due  to  Flexure 

Earliest  attempts  to  predict  the  load-deformation  res¬ 
ponse  of  members  under  repeated  reversed  cyclic  load  assumed 
that  shear  deformations  were  insignificant  and  thus  only  re¬ 
quired  appropriate  moment-curvature  diagrams.  Analytical 
models  of  the  moment-curvature  diagrams  for  this  case  have 

undergone  a  steady  process  of  evolution. 

21 

Sinha,  Gerstle  and  Tulin  proposed  moment-curvature 
curves  derived  using  a  trilinear  stress-strain  curve  for 
reinforcing  steel  and  a  concrete  stress-strain  curve  derived 
from  tests  of  plain  concrete  under  compressive  cyclic  load. 
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In  these  tests  the  envelope  concrete  stress-strain  curve  was 
very  close  to  the  virgin  stress-strain  curve  for  the  same  con¬ 
crete.  The  unloading  and  reloading  stress-strain  curves  did 
not  parallel  the  first  loading  stress-strain  curve,  however. 
They  obtained  reasonable  correlation  with  moment-curvature 

curves  from  reinforced  concrete  beams  cycled  unidirectionally . 

22 

Aoyama  developed  moment-curvature  curves  for  concrete 
beams  under  repeated  reversed  cyclic  loading  using  an  elasto- 
plastic  stress-strain  relationship  for  concrete  neglecting 
any  stress  in  tension.  When  the  outcome  of  the  analysis  was 
compared  with  test  results,  it  was  found  that  the  agreement 
was  almost  perfect  for  inital  loading  and  for  the  first 
reversal  which  was  made  slightly  after  the  yielding  in  the 
initial  loading.  The  only  disagreement  found  was  that  the 
stiffness  at  moments  close  to  yield  was  overestimated.  The 
agreement  was  not  very  good  for  reversals  after  the  first 
reversal  from  a  point  considerably  beyond  yielding , ‘.however . 
One  reason  for  this  was  that  the  Baushinger  effect  was  not 

considered  in  the  stress-strain  assumptions. 

23 

Agrawal,  Tulin  and  Gerstle  agreed  with  Aoyama  and 
concluded  that  the  response  to  repeated  loading  may  be  elas¬ 
tic-plastic  for  engineering  purposes,  but  the  behavior  under 
alternating  plasticity  is  highly  nonlinear  and  can  be  pre¬ 
dicted  only  by  considering  the  Baushinger  effect  in  the  steel. 

1  fi 

Brown  and  Jirsa  developed  moment-curvature  relation¬ 
ships  to  predict  the  response  of  their  test  specimens 
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during  the  third  half-cycle  of  load  reversal.  Their  analysis 

was  formed  using  stress-strain  curves  for  confined  concrete 

35  3  6 

by  Yamashiro  and  for  unconfined  concrete  by  Karsan.  The 

stress-strain  curves  were  shifted  on  the  strain  axis  by  a 
strain  equal  to  40%  of  the  maximum  tensile  strain  at  the 
surface  of  the  concrete  in  the  previous  direction. 

Steel  stress-strain  curves  used  in  the  analysis 
were  those  developed  by  Singh,  Gerstle  and  Tulin  ,  which 
consider  the  Baushinger  effect  within  the  stress-strain 
response.  Strain  hardening  of  the  steel  was  also  considered. 
They  found  their  computation  procedure  to  be  generally  sat¬ 
isfactory.  The  main  discrepancy  between  their  computed  and 
measured  load-deflection  curves  was  a  pinching  of  the  measured 
curves  toward  the  origin  which  they  attributed  to  shear  de¬ 
formations  . 

15 

Park,  Kent  and  Sampson  have  recently  developed 

moment-curvature  curves  for  reinforced  concrete  beams  under 

repeated  reversed  cyclic  load.  Their  steel  stress-strain 

curve  accounted  for  Baushinger  effect  and  strain  hardening. 

37 

Kent  and  Park  developed  the  stress-strain  curve  for  con¬ 
fined  concrete  used  in  the  analysis.  They  found  they  could 
reasonably  trace  the  moment-curvature  and  load-deflection 
response  of  their  test  beams  and  those  of  Aoyama  for  initial 
loading  and  first  and  second  load  reversals. 

Due  to  the  intricate  shape  of  moment-curvature 
curves  developed  in  this  way,  much  effort  is  required  to 
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trace  the  load-deflection  response  of  a  beam  under  repeated 
reversed  cyclic  load.  Park,  Kent  and  Sampson  required 
approximately  3  hours  of  IBM  360/44  computer  time  to  trace 
the  load-deflection  response  of  one  beam  during  three  half¬ 
cycles  of  load.  Because  of  this  and  at  the  same  time  to 
adjust  for  discrepancies  within  their  predicted  load-defor¬ 
mation  respones,  several  authors  have  idealized  the  appro¬ 
priate  moment-curvature  diagrams  using  series  of  straight 
lines  in  defined  patterns.  Some  authors  have  presented 
this  material  in  terms  of  moment-curvature  loops,  some  in 
terms  of  load-deformation  loops.  For  members  having  pre¬ 
dominant  flexural  deformations  the  two  methods  of  presenta¬ 
tion  will  be  assumed  to  be  analogous. 

The  idealizations  proposed  by  five  different  authors  are 
are  shown  in  Fig.  2-4. 

The  moment-curvature  relationships  shown  in  Fig.  2-4 (a) 
have  been  presented  by  Clough^,  by  Monnier^  and  by  Taked^ 
All  three  relationships  are  defined  by  the  same  set  of  rules; 
the  principal  difference  between  the  various  relationships 
lies  in  the  slope  taken  for  the  unloading  path. 

The  bilinear  moment-curvature  relationships  shown  in 
Fig.  2-4  (b)  have  also  been  used  to  predict  load-deformation 
behavior^ ' ^ .  The  bilinear  loop  is  a  stable  parallelogram 
shape  in  which  loading  and  unloading  always  follow  the  init¬ 
ial  elastic  slope.  The  degrading  bilinear  loop  loads  and 
unloads  on  a  slope  which  degrades  according  to  the  previous 


maximum  curvature. 
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2  6 

Imbeault  compared  actual  load-deformation  responses 
of  flexural  members  tested  on  the  University  of  Illinois 
shaking  table  to  those  predicted  using  linear  elastic,  bilin¬ 
ear,  Clough,  Takeda  and  degrading  bilinear  load-deflection 
responses.  He  found  that  linear  elastic  responses  have 
little  resemblance  with  measured  dynamic  responses.  The 
large  magnitude  of  energy  absorbed  through  inelastic  defor¬ 
mation  and  the  discontinuity  of  yielding  throughout  the  dur¬ 
ation  of  the  response  invalidated  the  computation  of  a  tran¬ 
sient  or  random  response  using  a  linear  elastic  system 
having  a  constant  equivalent  viscous  damping  coefficient. 

Imbeault  found  that  the  bilinear  system  satisfactorily 
predicts  the  maximum  acceleration  responses  of  yielding 
systems.  Because  the  bilinear  system  does  not  account  for 
the  degradation  of  stiffness,  however,  the  time  history 
acceleration  response,  the  maximum  displacement  and  the 
time  history  displacement  responses  were  not  well  predicted 
by  this  moment  curvature  relationship. 

Clough's  and  Takeda' s  hysteretic  models  predicted 
the  maximum  and  the  time-history  responses  of  the  rein¬ 
forced  concrete  specimens  within  an  accuracy  of  the  order 
of  20  percent  of  the  maximum.  Imbeault  found  no  other 
source  of  energy  absorption  (other  than  hysteretic  energy) 
was  necessary  to  satisfactorily  predict  the  responses. 

The  degrading  bilinear  response  required  an  additional 
viscous  damping  of  5  percent  of  critical  to  account  for  the 
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energy  absorbed  through  the  "true"  hysteresis  loop  at  low 
levels  of  excitation.  This  model  calculated  the  maximum  and 
time  history  dynamic  responses  with  the  same  degree  of  accur¬ 
acy  as  the  more  complex  Clough's  or  Takeda's  systems. 

15 

Park  et  al.  also  traced  load-deflection  responses 
using  the  degrading  stiffness  straight  line  moment-curvature 
relationship  proposed  by  Clough  and  found  it  to  be  a  reason¬ 
able  idealization.  They  warned  however  that  Clough's  model 
did  not  simulate  well  the  pinching  effect  developed  in  mom¬ 
ent  curvature  curves  of  an  axially  loaded  member. 

2-3-2  Member  Response  due  to  Shear 

Static  load-deflection  models  have  been  proposed  for 
members  subjected  mainly  to  shear.  These  models  are  assumed 
to  apply  to  shear  walls  in  low  rise  buildings  which  are  sub¬ 
jected  to  high  shear  force  and  small  moment. 

27  28 

Yamada,  Kawamura  and  Katagihara  '  tested  low  rise 
reinforced  concrete  shear  walls  with  boundary  beams  and  col¬ 
umns  and  with  and  without  openings.  They  formulated  a  theory 
for  strength  and  deformation  based  on  equilibrium  of  forces 
and  compatability  of  strains  resulting  from  flexure  of  the 
beams  and  columns  with  the  shear  wall  under  diagonal  compres¬ 
sion.  They  found  they  could  reduce  their  model  to  the  bound¬ 
ary  frame  with  an  equivalent  diagonal  compression  strut.  Tests 

29  . 

carried  out  by  Barda  at  the  Portland  Cement  Association 

seem  to  substantiate  their  assumptions  for  low  rise  walls. 
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.  30 

Zimmerli  has  proposed  a  model  for  the  ultimate 
strength  of  shear  walls  under  high  shear  with  axial  forces. 
The  model  consists  of  concrete  diagonals,  horizontal  steel 
stirrups  and  vertical  steel  stringers.  Assuming  all  ele¬ 
ments  are  plastified  and  using  equilibrium,  a  relationship 
is  found  between  load  and  deformation  at  ultimate.  Three 
different  deformation  modes  were  considered,  corresponding 
to  separate  yielding  of  all  the  stirrups,  the  concrete 

diagonals  or  the  vertical  stringers. 

31  39 

Two  authors  '  have  developed  shear-deflection  analy¬ 
ses  based  on  the  assumption  that  the  shear  acting  on  a  crac¬ 
ked  reinforced  concrete  member  is  carried  by  a  truss  mech- 

1 

anism.  Each  analysis  integrates  the  strains  in  the  concrete 

diagonals  and  tension  steel  stirrups  to  find  component 

deformations  which  are  then  superimposed  using  a  Williot 

diagram  to  give  the  total  deflection  due  to  shear. 

47 

O'Leary  tested  reinforced  concrete  beams  under  mcea- 

sing  moment,  shear  and  axial  tension.  He  studied  the  crack 

patterns  of  his  beams  and  assumed  that  there  were  three 

paths  to  carry  shear  between  the  base  of  his  specimen  and 

the  point  of  shear  application.  He  proportioned  the  total 

shear  so  that  the  deformation  of  each  load  path  was  equal. 

He  found  however  that  without  knowledge  of  stirrup  anchorage 

slip-load  relationships,  it  was  impossible  to  predict  shear 

deflections  adequately  from  analysis  of  the  analogous  truss. 
3 1 

Dilger  has  formulated  a  model  for  the  shear  component 
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of  the  total  deformation  of  T-beams  under  monotonic  loading. 
This  model  will  be  illustrated  in  Chapter  3  as  shear  defor¬ 
mations  are  included  in  developed  moment-rotation  character¬ 
istics  . 

The  importance  of  a  shear  deformation  term  in  analytical 
load-deformation  responses  for  members  under  repeated  rever¬ 
sed  cyclic  load  has  been  illustrated  in  tests  performed  by 

1 6 

Brown  and  Jirsa.  Their  cantilever  beams  were  cycled  be¬ 
tween  deformation  limits.  As  the  number  of  cycles  increased, 
flexural  deformations  as  given  by  rotation  meters  decreased 
and  shear  deformations  increased. 

2-4  Reported  Frame  Behavior 

£ 

Clough  and  Benuska  reported  on  the  behavior  of  twenty 
story  three  bay  pure  frame  structures  having  fundamental 
periods  of  1.6,  2.2  and  2.8  seconds.  The  structures  were 
subjected  to  the  ground  acceleration  history  recorded  in  the 
El  Centro  earthquake  of  May  18,  1940  (N-S  component).  Bi¬ 
linear  moment-rotation  properties  were  developed  for  each 
member  and  a  stable  elastic-plastic  bilinear  hysteresis  loop 
was  assumed.  Columns  were  designed  to  have  yield  moments  six 
times  those  required  by  elastic  analysis;  beam  yield  moments 
were  two  times  greater.  Clough  and  Benuska  concluded; 

1.  Displacements  and  member  forces  caused  in  a  typi¬ 
cal  multistory  frame  by  code  lateral  loads  are  smaller  than 
would  be  generated  in  the  structure  by  a  moderate  earthquake, 
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if  the  structure  were  to  respond  elastically. 

2.  Lateral  displacements  developed  in  the  nonlinear 
earthquake  response  of  a  tall  building  appear  to  be  similar 
in  magnitude  to  the  elastic  displacement  response. 

3.  In  a  typical  building  design,  the  nonlinear  member 
deformations  tend  to  be  concentrated  in  the  girders,  while 
the  columns  remain  elastic,  (except  in  the  top  few  stories). 
Girder  ductility  factors  developed  during  a  relatively 
severe  earthquake  may  be  of  the  order  of  4  to  6  in  a  typical 
design. 

4.  For  the  tall  buildings  considered,  the  period  of 
vibration  and  height  of  the  structure  do  not  appear  to  be 
important  factors  in  determining  the  amount  and  distribution 
of  ductile  deformations  which  will  result  from  an  earth¬ 
quake  excitation. 

5.  Ductile  deformations  tend  to  avoid  strong  members  and 
to  concentrate  in  weak  members;  thus  the  girders  will  tend 
to  yield  if  the  columns  are  made  stronger,  or  vice  versa. 

On  this  basis,  it  is  evident  that  the  frame  design  should 
not  include  weak  zones  which  may  attract  a  major  part  of  the 
ductile  deformations. 

By  studying  cantilever  beam  models  of  tall  struct- 
3  2 

ures,  Giberson  hoped  to  gain  a  fuller  understanding  of  why 
the  displacements,  interfloor  displacements,  shear  forces 
and  total  accelerations  have  differing  dependencies  upon  the 
various  modes  as  well  as  upon  the  position  in  the  structure. 
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Two  linear  elastic  continuous  cantilever  beams  which  repre¬ 
sented  limiting  cases  of  tall  structures  were  studied.  In 
one,  the  stiffness  and  mass  distribution  were  uniform,  while 
in  the  other  these  distributions  taper  to  a  point  at  the  top. 

Giberson  subjected  the  beam  models  to  an  ensemble  of 
earthquakes  and  then  examined  their  responses  for  general 
trends . 

Giberson  stated  that  a  mass  particle  at  the  top  of 
a  severely  tapered  structure  could  be  expected  to  feel  very 
high  acceleration.  He  also  stated  that  structural  damage 
would  be  increased  in  a  tapered  structure  because  interfloor 
displacements  appeared  to  be  dependent  upon  higher  modes , 
which  are  emphasized  in  a  tapered  structure. 

Giberson  concluded  that  in  order  to  minimize  struct¬ 
ural  damage  and  accelerations  in  a  structure,  particularly 
in  the  upper  portions,  it  is  best  to  have  the  stiffness  and 

mass  distributions  as  uniform  as  possible. 

33 

Husid  reported  on  the  effect  of  gravity  on  the 
earthquake  response  of  one  degree  of  freedom  yielding  struct¬ 
ures  subjected  to  earthquake-like  excitation.  His  results 
show  that  the  effect  of  gravity  is  to  increase  significantly 
the  development  of  permanent  set  over  that  occurring  when 
gravity  is  ignored.  Because  the  gravity  effect  increases 
as  the  deflections  grow,  the  permanent  set  increases  rapidly 

just  prior  to  failure. 

34 

Otani  predicted  the  response  of  his  model  three 


story  one  bay  reinforced  concrete  frames  tested  using  the  Uni 
versity  of  Illinois  Earthquake  Simulator.  In  analyzing  the 
overall  response  of  these  frames,  the  portion  of  the  beam  or 
column  between  the  varying  point  of  contraf lexure  and  the 
joint  was  considered  as  a  basic  unit.  The  stiffness  charac¬ 
teristics  of  the  basic  unit  were  determined  by  the  primary 
force  deflection  and  rotation  relations  of  a  cantilever  and 
Takeda's  hysteresis  rule.  Rotation  due  to  bond  slip  of  the 
tensile  reinforcement  was  simulated  by  placing,  at  the  ends 
of  the  frame  members,  bilinear  rotation  springs  with  a  simpli 
fied  hysteresis  based  on  Takeda.  Deformations  due  to  axial 
loads  acting  through  member  displacements  were  not  considered 
Member  forces  were  calculated  at  the  end  of  each  load  incre¬ 
ment.  If  a  member  force  exceeded  a  limiting  value  ,  the 
member  stiffness  was  modified  for  the  next  load  increment. 

Comparisons  of  calculated  response  waveforms  with  those 
measured  are  summarized  as  follows: 

(1)  The  analytical  model  was  stiff er  than  the  test 
specimen,  especially  at  low- amplitude  oscillations. 

(2)  Large  oscillations  were  favorably  simulated  by 
the  analytical  model,  if  the  intensity  of  base  motion  was 
relatively  high,  and  if  the  damage  in  the  test  specimen  was 
small  prior  to  the  test  run. 

(3)  The  analytical  model  with  viscous  damping  propor¬ 
tional  to  stiffness  (a  first  mode  damping  factor  of  2  percent 
of  critical  at  the  inital  uncracked  stage  was  preferable  to 
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the  model  without  viscous  damping  in  the  prediction  of  higher 
frequency  components  in  the  calculated  acceleration  waveforms. 

C4)  The  analytical  model  predicted  closely  the  maximum 
accelerations  and  displacements  at  the  third  level,  and  the 

maximum  base  shears  and  base  moments. 

2  6 

Imbeault  analyzed  four  moment-resisting  frames,  6  to 
30  stories  in  height  with  periods  varying  from  0.63  to  2.8 
seconds,  to  determine  their  response  to  five  different  earth¬ 
quakes.  He  analyzed  each  frame  assuming  bilinear  elastic- 
plastic  and  degrading  bilinear  member  responses. 

He  found  that  in  the  bottom  section  of  a  frame,  the 
average  bilinear  girder  ductility  factors  of  the  frames 
analyzed  could  be  averaged  within  plus  or  minus  one  ductility 
factor.  Associated  with  the  different  earthquakes,  the  aver¬ 
age  girder  ductility  factors  were: 


Jennings  A-l  4.5 
Jennings  B-l  3.5 
El  Centro  NS  1940  2.5 
Olympia  S80W  1949  1.5 
Taft  N21E  1952  1.0 


Imbeault  found  ductility  demands  to  be  0.5  to  2.0 
ductility  factors  higher  in  the  top  section  of  the  frames 
which  he  attributed  to  higher  mode  effects. 

Imbeault  noted  that  the  location  of  yielding  is  a 
property  of  the  structural  system  and  is  independent  of 
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earthquake  characteristics. 

In  comparing  responses  obtained  using  bilinear  and 
degrading  bilinear  member  responses,  Imbeault  found  that  the 
reduction  in  energy  absorption  capacity  of  the  degrading 
bilinear  system  led  to  significant  increases  in  ductility 
requirements . 

Depending  upon  the  earthquake  characteristics  the 
maximum  increases  in  the  magnitude  of  the  ductility  of  the 
degrading  bilinear  responses  compared  to  the  bilinear  res¬ 


ponses  were: 

Jennings  A-l  90% 
Jennings  B-l  50% 
El  Centro  NS  1940  30% 
Olympia  S80W  1949  20% 
Taff  N21E  1952  10% 


Other  significant  differences,  if  any,  between  the 
observed  bilinear  and  degrading  bilinear  response  were  not 


discussed. 
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27 


FIG.  2-1  LOAD-DEFLECTION  RESPONSE  OF  A  TYPICAL 
REINFORCED  CONCRETE  BEAM 


LOAD 
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FIG.  2-2  LOAD-DEFLECTION  RESPONSE  OF  REINFORCED  CONCRETE  BEAM 
WITH  NO  DEGRADATION  OF  LOAD  CARRYING  CAPACITY 
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FIG.  2-3  LOAD-DEFLECTION  RESPONSE  OF  REINFORCED  CONCRETE  BEAM 
WITH  DEGRADATION  OF  LOAD  CARRYING  CAPACITY 
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FIG.  2-4  MOMENT-CURVATURE  IDEALIZATIONS 


Chapter  3 

MEMBER  RESPONSE  DURING  STRUCTURAL 
VIBRATION 

3-1  Introduction 

The  objective  of  this  chapter  is  to  present  the 
development  of  an  analytical  model  to  predict  the  elastic- 
inelastic  response  of  a  member  subjected  to  repeated  re¬ 
versed  cyclic  load. 

The  first  step  in  the  development  involved  combining 
the  stress-strain  relationships  of  the  constituent  materials 
within  the  reinforced  concrete  cross-section  into  a  moment- 
axial  load-curvature  (M-P-<|>)  relationship. 

Next  it  was  necessary  to  find  a  relationship  between 
applied  shear  and  shear  strain  (V-y  relationship) .  A  re¬ 
lationship  developed  by  Dilger  was  adopted. 

The  next  step  within  the  procedure  involved  choosing 
an  appropriate  load-deformation  hysteresis  rule  so  that  the 
flexural  and  shear  deformation  of  a  member  could  be  pre¬ 
dicted  at  any  point  within  a  member's  loading  history.  The 
load-deformation  hysteresis  loop  proposed  by  Clough  was 
adopted  for  each  type  of  deformation. 

The  deformations  due  to  flexure,  shear  and  axial 
load  were  then  computed  and  combined.  This  was  accomplished 
within  a  computer  program  in  which  the  curvatures  were  inte¬ 
grated  and  shear  strains  multiplied  by  appropriate  lengths 
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and  the  resultant  deformations  added. 

Analytic  load-deformation  responses  predicted  using 
Clough's  hysteresis  loop  were  then  compared  with  experimental 
values  for  beams  under  repeated  reversing  cyclic  load. 

3-2  Moment  -  Axial  Load  -  Curvature  Relationship 

The  first  step  in  developing  the  moment-axial  load- 

curvature  relationship  of  the  cross-section  was  to  select 

appropriate  stress-strain  curves  for  the  constituent  materials 

within  the  cross-section. 

The  trilinear  stress-strain  relationship  depicted 

in  Fig. 3-1  was  chosen  for  the  60  ksi  steel  assumed  within 

each  cross-section.  This  relationship  was  arbitrarily  picked 

to  represent  the  average  of  a  number  of  published  stress- 

strain  curves  for  60  ksi  reinforcing  steel.  Hognestad's 

compressive  stress-strain  curve  along  with  a  tensile  stress- 

42 

strain  curve  proposed  by  MacGregor  made  up  the  stress-strain 

curve  accepted  for  concrete. 

Rate  of  loading  affects  were  ignored  for  conservatism 

Since  nominal  f'  and  f  values  were  used,  it  did  not  seem 

c  y 

statistically  reasonable  to  adjust  these  values  for  rate  of 
loading  effects.  In  addition,  tests  carried  out  in  air  on 
reinforcing  steels  and  concrete  cylinders  were  felt  to  be 
not  entirely  representative  of  the  real  case. 

It  was  assumed  that  the  concrete  could  take  a  reason¬ 
able  amount  of  tensile  stress.  The  stress-strain  relation- 
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ship  for  concrete  under  tension  was  taken  from  Ref.  42.  Ref. 
43,  which  also  used  this  same  tensile  stress-strain  relation¬ 
ship,  states  that  tensile  stress  in  the  concrete  affects  the 
initial  part  of  the  moment-curvature  curve  prior  to  cracking 
but  has  no  significant  effect  on  the  ultimate  capacity  of 
sections.  It  also  states  that  the  effect  of  the  tensile 
stress  diminishes  as  the  axial  load  and/or  steel  percentage 
increases . 

The  developed  M-P-<J>  program  assumes  (J>  and  iterates 
the  position  of  the  cross-section  neutral  axis  until  equili¬ 
brium  of  the  internal  forces  and  the  external  axial  force  is 
achieved.  The  moment  occurring  in  conjunction  with  the  axial 
force  and  curvatures  is  then  calculated. 

The  cross-section  is  sliced  into  elements  which  may 
vary  in  thickness  if  desired.  Up  to  80  elements  are  used 
to  describe  the  cross-section;  more  elements  generally  result 
in  better  accuracy  however  computer  costs  are  likely  to  rise 
disproportionately. 

The  position  of  the  neutral  axis  of  the  cross-section 
is  independent  of  the  way  in  which  the  cross-section  is 
sliced  up,  "discretized"  into  elements.  Thus  the  neutral 
axis  may  lie  within  an  element  of  the  discretized  cross- 
section.  Stresses  are  calculated  at  the  centroids  of  the 
elements  of  the  discretized  cross-section.  The  computer 
program  is  listed  and  more  fully  explained  in  Appendix  A. 
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A  typical  M-P-  <p  response  for  a  shear  wall  is  shown  in 
Fig.  3-2  and  a  typical  diagram  for  a  beam  has  been  presented 
in  Fig.  2-1. 

The  moment-axial  load-curvature  relationship  for  a  typi¬ 
cal  reinforced  concrete  beam  is  usually  adequately  described 
using  three  straight  lines  as  shown  in  Fig.  2-3.  For  shear 
wall  shapes  containing  distributed  reinforcing,  however,  six 
straight  lines  were  considered  necessary  as  shown  in  Fig.  3-2. 

3-3  Applied  Shear-Shear  Strain  Relationship  for  Members 

with  Diagonal  Cracks 

The  shear  deformation  model  presented  by  Dilger  is  dev¬ 
eloped  through  a  sectioning  and  analysis  of  the  cracked  rein¬ 
forced  concrete  beam  shown  in  Fig.  3-3 (a). 

Analyzing  the  section  inclined  at  shown  in  Fig.  3-3 
(b)  for  forces  and  strains  we  obtain: 
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Analyzing  the  section  inclined  at  angle  aQ  shown  in 
Fig.  3-3  (c)  for  forces  and  strains  we  obtain: 


Cv  =  -V4in$ 
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Combining  the  strains  using  the  Williot  Diagram 
depicted  in  Fig.  3-4  we  obtain 
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This  equation  may  be  modified  for  decreased  strains 
due  to  part  of  the  shear  being  carried  by  the  concrete  alone, 
however  Dilger  obtained  better  comparisons  with  experimental 
results  when  the  shear  carried  by  the  concrete,  Vc,  was 

V-V 

•  c 

assumed  equal  to  zero  or  the  ratio  — - -  was  very  close 

to  one . 

When  using  this  model  to  predict  shear  deformations 

for  beams  under  repeated  reversing  cyclic  load,  was 

assumed  to  be  45°  for  all  beams  and  the  V  term  was  set 

c 
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equal  to  zero  for  all  cycles  if  it  was  expected  that  V 

c 

would  be  exceeded  in  any  cycle.  The  V-y  relationship  was 
assumed  to  be  linear  up  to  0.95  of  the  shear  corresponding 
to  flexural  yield  of  the  cross-section.  The  V-y  relationship 
was  then  empirically  adjusted  to  the  form  shown  in  Fig.  3-5 
to  obtain  a  reasonable  comparison  with  the  experimental  load- 
deformation  response  of  Beam  35  tested  by  Popov,  Bertero  and 
Krawinkler.  Comparisons  with  experimental  load-deformation 
responses  are  presented  in  Section  3-5. 

The  computer  program  to  predict  the  V-y  relationship 
of  a  reinforced  concrete  cross-section  is  presented  in 
Appendix  B. 

3-4  Participation  of  Flexural  and  Shear  Deformations 
in  Member  Total  Deformations 

The  prediction  of  a  member's  total  deformation  using 

flexural  and  shear  deformation  models  independent  of  the 

M/„.^  ratio  of  a  member  is  a  somewhat  crude  procedure. 

It  is  easily  shown  that  the  ability  of  a  member  to 

deflect  and  the  amount  of  flexural  or  shearing  deformation 

involved  in  the  total  member  deformation  changes  with  the 

ratio  of  M/TT, 

Vd. 
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H.  Bachmann  has  presented  the  diagram  given  in  Fig. 

3-6  showing  the  generalized  dependency  of  the  ultimate 

rotation  0  on  the  shear  stress  v.  If  v  is  less  than  v  . 

u  cr 

only  flexural  cracks  occur.  If  v  is  greater  than  v 

U  -L 


I  ' 


flexure-shear  cracks  are  developed.  Bachmann  explained  that 
corresponding  to  these  crack  patterns  a  flexural  crack  hinge 
or  a  shear  crack  hinge  develops.  In  a  flexural  crack  hinge 
the  plastic  deformations  are  concentrated  into  a  smaller  zone 
as  v  increases  since  the  increased  moment  gradient  restricts 
the  zone  of  yielding  to  a  zone  immediately  adjacent  to  the 
point  of  maximum  moment.  The  value  of  the  ultimate  rotation 
©u  accordingly  decreases  as  shown  in  Fig.  3. 6.  Assuming  that 
a  rupture  of  the  steel  occurs,  the  reduction  of  ©u  is  very 
high.  In  the  case  of  a  concrete  fracture  a  reduction  is 
also  confirmed.  If  the  shear  stress  is  enough  to  produce 
flexure-shear  cracks,  the  rotation  0^  considerably  increases 
since  plastic  deformations  occur  on  a  much  wider  zone.  With 
increasing  shear  stress  v,  the  rotation  0^  decreases  again. 

If  sufficient  shear  reinforcement  exists,  however,  a 
drastic  reduction  occurs  only  when  v  approaches  through 

crushing  of  the  concrete  in  the  web  due  to  shearing  deform¬ 
ations  and  inclined  compression  forces. 

In  addition  to  the  effects  described  by  Bachmann,  if 
v  is  less  than  v  and  the  tensile  steel  yields  within  the 
flexural  crack  hinge  and  the  flexural  crack  opens,  shear  is 
resisted  only  by  the  concrete  at  the  head  of  the  crack  and 
the  dowel  shear  of  the  yielded  reinforcing.  In  this  instance 
slip  may  occur  parallel  to  the  crack  and  thus  the  flexural 
action  of  the  beam  has  affected  its  shear  resistance.  This 
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is  particularly  true  if  cyclic  loads  alternately  cause 
yielding  of  the  top  and  bottom  steel  in  the  beam. 

It  is  believed  however  that  the  deformation  models 
developed  herein  may  be  applied  throughout  a  fairly  broad 
range  of  M/v^  values  without  serious  error. 

The  shear  deformation  model  developed  herein  has  been 
developed  for  a  midrange  value  of  M/y^  of  about  3.0.  As 
such  it  is  believed  that  changes  in  the  value  of  M/^  would 
change  the  cracking  angle  of  the  shear  deformation  model 
but  that  this  effect  would  not  be  serious  for  values  of  M/y^ 
from  approximately  2  to  5. 

At  M/y^  values  above  5  shear  deformations  are  not 
significant  as  shear  stress  are  lower  at  higher  M/y^  values. 
In  this  range  deformations  found  using  M-P~4>  curves  have 
been  found  to  be  realistic. 

M/v^  values  below  2  are  considered  to  be  outside 

the  range  of  the  deformation  models  developed  herein.  De- 

30  2728 

formation  models  such  as  those  of  Zimmerli  or  Yamada  ' 
et  al.  are  more  likely  to  suit  this  case. 

It  is  known  that  the  M/y^  ratio  of  a  member  in  a 
structure  may  change  as  the  earthquake  progresses  and  the 
various  modes  of  the  structure  interact.  However  it  is 
thought  that  once  a  member's  crack  pattern  has  been  estab¬ 
lished  according  to  its  original  M/yd  ratio,  it  is  not 
likely  to  change  significantly.  Thus  even  though  the  M/yd 
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ratio  of  a  member  may  in  future  take  on  a  value  outside  the 
range  of  apparent  applicability,  it  is  felt  that  the  defor¬ 
mation  models  postulated  will  still  adequately  predict  the 
member's  deformations. 

3-5  Hysteresis  Loop 

To  predict  the  deformations  of  a  member  throughout 
its  loading  history,  one  must  have  a  method  of  predicting 
what  curvatures  and  shear  strains  exist  at  various  sections 
of  the  member  length  at  all  times.  These  curvatures  and 
shear  strains  are  then  integrated  to  give  the  member's 
deformation  profile  at  any  desired  time. 

As  previously  explained  in  Sec.  2-3,  the  intricate 
curves  describing  the  relationship  between  moment  and  cur¬ 
vature  are  usually  approximated  by  series  of  straight  lines 
in  defined  patterns.  In  this  thesis,  the  set  of  rules  de¬ 
fining  the  pattern  of  the  moment-curvature  hysteresis  loop 
is  also  used  to  define  the  pattern  of  the  shear-shear  strain 
hysteresis  loop.  The  set  of  rules  defining  this  pattern 

g 

was  originally  presented  by  Clough. 

The  series  of  rules  establishing  the  moment-curva¬ 
ture  loop  is  listed  here: 

1.  the  moment-curvature  relationship  for  monotonic 
loading  is  defined  with  a  bilinear  curve;  the  point  of  stiff¬ 
ness  change  corresponding  to  the  yield  moment  and  curvature. 
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2.  If  the  moment  on  the  member  does  not  rise  above 
yield  at  any  time  no  hysteresis  loop  is  generated. 

3.  The  slope  of  the  unloading  branch  is  equal  to  that 
of  the  initial  elastic  response,  El. 

4.  If  the  moment  has  exceeded  the  yield  moment  in  one 
direction  only,  loading  in  the  opposite  direction  follows 
the  line  passing  through  the  points  defined  by  the  residual 
curvature  at  zero  moment  and  the  opposite  yield  moment  and 
curvature. 

5.  If  the  moment  has  exceeded  the  yield  moment  in  both 
directions,  loading  in  an  opposite  direction  follows  the 
line  passing  through  the  points  defined  by  the  residual 
curvature  at  zero  moment  and  the  highest  curvature  and 
moment  reached  in  the  opposite  direction. 

6.  Loading  beyond  any  previously  reached  moment  and 
curvature  follows  the  monotonic  bilinear  moment-curvature 
relationship. 

Fig.  3-7  depicts  the  hysteresis  loop  defined  by  the 
rules  stated  above.  The  method  of  combining  the  deformations 
predicted  using  the  strains  defined  by  this  hysteresis  loop 
is  explained  in  Section  4-3  and  in  Appendix  E  of  this  thesis. 

3-6  Comparison  with  Experiments 

The  load-deformation  plots  of  three  beams  tested  by 
Popov,  Bertero  and  Krawinkler  are  shown  in  Fig.  3-8,  Fig. 

3-9  and  Fig.  3-10  respectively.  Analytically  predicted 


responses  including  both  shear  and  flexural  effects  are  also 
shown  within  each  figure.  The  properties  of  these  three 
beams  are  summarized  in  Table  3-1. 

The  comparison  between  experiment  and  analysis  is 
quite  reasonable.  In  general  the  unloading  stiffness  of 
the  analytical  model  is  a  little  greater  than  that  measured 
and  any  pinching  of  the  experimental  curve  toward  the  ori¬ 
gin  such  as  that  in  Fig.  3-8  is  not  predicted  too  well. 

The  ratio  of  the  analytically  predicted  flexural  and 
shear  deformations  of  these  three  beams  is  presented  in 
Table  3-2.  The  beams  were  designated  as  Beam  35,  Beam  43 
and  Beam  46.  The  first  number  of  the  identification  repre¬ 
sented  the  size  of  the  stirrup  reinforcing  bar,  the  second 
number  the  spacing  of  the  stirrups.  Two  things  are  note¬ 
worthy  in  Table  3-2.  One  is  the  fact  that  the  analytically 
predicted  shear  deformations  are  just  as  significant  and 
often  times  more  significant  than  the  predicted  flexural 
deformation.  The  second  is  the  fact  that  as  the  stirrup 
spacing  is  decreased  and/or  the  size  of  stirrup  reinforcing 
bar  is  increased  the  model  correctly  follows  the  expected 
trend  that  the  shear  stiffness  will  increase. 
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TABLE  3-1  SPECIMEN  PROPERTIES 


PARAMETERS 

BEAM  35* 

BEAM  46 

Beam  43 

L  (in) 

78.0 

78.0 

78.0 

t  (in) 

29.0 

29.0 

29.0 

b  (in) 

15.0 

15.0 

19.0 

d  (in) 

25.25 

25.25 

25.25 

d' (in) 

3.75 

3.75 

3.75 

As<in2) 

6.00 

6.00 

6.00 

A' (in2) 
s 

6.00 

6.00 

6.00 

P 

0.0158 

0 . 0158 

0.0158 

P* 

0.0158 

0.0158 

0.0158 

(compresion  reinforce 
ment  is  neglected) 

0.0235 

0.0242 

0.0336 

f 

y 

for  main  reinf.  (ksi) 

67.0 

67.0 

60.0 

f 

max 

for  main  reinf.  (ksi) 

103.0 

103.0 

97.0 

f 

y 

for  stirrup  ties  (ksi) 

53.0 

60.0 

\ 

60.0 

f 

max 

for  stirrup-ties (ksi) 

90.0 

96.0 

96.0 

f ' 

c 

(ksi) 

3.86 

3.99 

5.03 

design  criteria 

ACI-63 

Code 

ACI-63  Code, 
except  V 
taken  by 
stirrups 
only 

ACI-71 
Code , V 
taken  u 
by  stir¬ 
rups  only 

stirrup-ties  size 

#  3 

#  4 

#  4 

stirrup-ties  spacing 

(in) 

4.5 

6.0 

3.0 

*The  stirrup-tie  spacing  used  was  4.5  in. , but  for  simplicity  the 
specimen  was  called  Beam  35  and  not  Beam  34.5 
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TABLE  3-2  RATIO  OF  FLEXURAL  TO  SHEAR 

DEFORMATIONS 


Elastic 

Yield 

Inelastic 

Beam  35 

1:1 

1:2 

1:3 

Beam  46 

1:1 

1:1 

1:2 

Beam  43 

4:3 

2:1 

4:3 

STRESS 
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FIG.  3-1  STEEL  STRESS-STRAIN  CURVE 
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FIG.  3-2  MOMENT-CURVATURE  RESPONSE  OF  A  SHEAR  WALL 
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DILGER  SHEAR  DEFORMATION  MODEL 
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FIG.  3-4  WILLIOT  DIAGRAM  FOR  DILGER  SHEAR 
DEFORMATION  MODEL 


SHEAR 
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FIG.  3-5  Typical  V-y  Relationship 


ULTIMATE  ROTATION 
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FLEXURAL 
CRACK  HINGE 


SHEAR  CRACK  HINGE 
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NOMINAL  SHEAR  STRESS  (v) 


FIG.  3-6  Ultimate  Rotation  Versus  Shear  Stress 
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FIG.  3-7  TYPICAL  LOAD-DEFORMATION  HYSTERESIS  LOOP 
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FIG.  3-8  Load-Deformation  Response 


BEAM  43 
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FIG.  3-9  Load-Deformation  Response  of  Beam  43 


BEAM  46 
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FIG.  3-10  Load- Deformation  Response  of  Beam  46 


Chapter  4 

EARTHQUAKE  ANALYSIS 


4-1  Introduction 

In  this  chapter,  the  method  of  analysis  used  to 
study  the  behavior  of  reinforced  concrete  frames  will  be 
developed.  This  procedure  was  originally  developed  for 
steel  frames  and  formed  the  basis  of  a  computer  program 
developed  by  M.  Suko.  Sections  4.2,  4.4  and  4.5  of  this 
chapter  and  much  of  Appendix  C  and  Appendix  D  are  taken 
directly  from  Dr.  Suko's  thesis  and  are  presented  rather 
than  referenced  to  assist  the  reader  of  this  thesis. 

Equivalent  rotational  springs  are  used  at  the  ends 
of  each  member  to  account  for  all  deformations  other  than 
elastic  flexural  deformations.  Thus  these  rotational 
springs  account  for  deformations  due  to  axial  load,  shear 
deformations  and  inelastic  deformations  for  each  member. 
Estimating  the  axial  load  and  the  moment  to  shear  ratio 
for  each  member,  the  relationship  between  the  moment, M, 

O 

and  the  relaxation  angle,  60  of  the  rotational  spring 

s 

is  calculated.  Slope  deflection  equations  are  modified  for 
members  attached  with  rotational  springs.  The  M  -6  0 

b  b 

relationships  are  then  combined  to  construct  a  stiffness 
matrix  for  the  complete  frame.  The  dynamic  equations  are 
solved  by  changing  the  stiffness  matrix  so  that  it  is 
compatible  with  the  deteriorated  structure  at  every  instant 
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of  the  motion. 


To  apply  this  analysis  to  reinforced  concrete  frames 

it  was  necessary  to  redefine  the  manner  in  which  the  M  -60 

s  s 

relationship  was  computed  to  include  both  shear  and  flexural 
terms  and  to  include  the  degrading  stiffness  loop. 

4-2  Analytical  Model 

The  frame  to  be  analyzed  is  modeled  as  shown  in  Fig. 
4-1.  The  number  of  stories,  N  ,  and  the  number  of  bays, 

N^,  as  well  as  the  story  height  for  each  story  and  the  bay 
width  for  each  bay  in  the  model  correspond  to  those  of  the 
original  frame.  The  frame  must  be  at  least  one  bay  wide 
thus  a  ficticious  beam  and  column  must  be  added  to  analyze 
a  building  with  only  a  shear  wall  to  resist  lateral  and 
axial  loads. 

The  stiffness  of  a  member  in  the  modeled  frame  is 
taken  to  be  equal  to  the  elastic  stiffness  of  the  corres¬ 
ponding  member  in  the  actual  frame  and  is  assumed  to  be 
unchanged  throughout  the  response  regardless  of  the  stress 
level.  A  rotational  spring  is  placed  between  each  member 
and  the  corresponding  joint  (or  a  rigid  stub)  as  shown  in 
the  figure,  to  account  for  the  inelastic  action  of  the 
member  and  the  secondary  effects.  The  procedures  used  to 
determine  the  properties  of  this  spring  will  be  discussed 
in  the  following  section.  If  a  shear  wall  is  present,  it 
is  simulated  by  a  column  which  has  a  bending  stiffness  and 
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strength  equivalent  to  those  of  the  original  shear  wall 
and  is  attached  to  the  adjacent  beams  through  rigid  stubs. 

The  stub  length  simulates  the  wall  width  effect.  This 
column  is  then  treated  in  the  usual  manner. 

The  bottom  story  columns  may  be  attached  to  the  found¬ 
ation  by  elastic  rotational  springs  to  account  for  the  flexi¬ 
bility  of  the  foundation.  The  secondary  effects  produced  by 
axial  shortening  or  elongation  of  the  columns  are  ignored. 
Uniformly  distributed  loads  may  be  applied  to  the  beams 
although  the  possibility  of  forming  a  plastic  zone  within 
the  span  length  of  a  member  is  not  checked. 

The  masses  are  assumed  to  be  concentrated  at  each 
floor  level  and  to  translate  in  a  horizontal  direction  only 
as  shown  graphically  in  Fig.  4-1.  A  mass  concentrated  at 
a  floor  level  is  denoted  by  itk  ,  in  which  the  subscript  i 
identifies  the  floor  level. 

Damping  forces  are  assumed  to  be  developed  by  the 

relative  motion  of  adjacent  floors.  Thus  the  damping  force 

at  the  i-th  story  is  expressed  as  c^ (*i“*i+i) '  in  which 

c^  represents  the  damping  coefficient  which  is  constant 

throughout  the  motion  within  a  story;  and  x.  and  x.  , 

1  l+l 

represent  the  velocities  relative  to  the  ground  of  the 
i-th  story  and  the  story  below. 

Each  nodal  point  and  member  are  numbered  as  shown 
in  Fig.  4-2.  Floors  and  stories  are  numbered  from  the  top. 
Bays  and  columns  are  numbered  from  the  left.  The  joint  of 
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the  i-th  floor  (from  the  top)  and  the  j-th  column  row  (from 

the  left) is  called  the  {  (N^+l)  (i-1)  +j }-th  joint.  The 

beam  of  the  i-th  floor  and  the  j-th  bay  is  called  the 

{(2N^+1)  (i-1)  +j)-th  member  and  the  column  of  the  i-th 

story  and  the  j-th  column  row  is  similarly  called  the 

{(2N^+1)  i- (N^+l) +j }-th  member.  Thus  a  N^-bay,  Ng-story 

frame  consists  of  (N,+1)N  joints  and  (2N,+1)N  members. 

b  sJ  b  s 

4-3  Equivalent  Rotational  Springs 

Properties  of  equivalent  rotational  springs  are 
determined  in  the  following  steps.  The  cantilever  column 
shown  in  Fig.  4-3  simulates  the  portion  of  a  member  be¬ 
tween  its  point  of  inflection  and  corresponding  joint. 

This  column  under  monotonically  increasing  load  is  subject 
to  elastic  and  inelastic  flexural  deformations,  shear  de¬ 
formations,  and  additional  flexural  deformations  caused  by 
*  the  axial  load  acting  through  the  flexural  and  shear  de¬ 
formations  of  the  member. 

The  column  shown  in  Fig.  4-3  is  then  replaced  by  the 

column  shown  in  Fig.  4-4.  The  lateral  load  V  is  now 

assumed  to  produce  only  elastic  flexural  deformations. 

All  other  deformations  are  accounted  for  through  a  rotation 

of  the  equivalent  rotational  spring  at  the  base  of  the 

column.  For  any  moment,  M  ,  produced  by  lateral  load,  V, 

s 

the  relationship  between  M  and  the  rotation  of  the  spring, 

s 


6  0  is : 
s 
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M  =-  VL 
s 


(4-1) 


^  ^elastic^/L  (4-2) 

The  relationship  between  M  and  60  is  found  from  zero 

s  s 

load  to  failure.  The  procedure  followed  leading  to  a  com¬ 
plete  M  -5  0  diagram  for  each  member  is  listed  below: 
s  s 

1.  The  cantilever  column  length  is  divided  into  as 
many  segments  as  desired.  Commonly  the  column  length  is 
divided  into  20  segments. 

2.  A  concentrated  lateral  shear  force,  ,  is  applied 
at  the  top  of  the  member . 

3.  The  input  V-y  relationship  is  searched  to  find  y^  , 

for  V,.  The  deformations  due  to  shear,  A  ,  are  found  at 
1  v . 

l 

each  column  height  division  point  by  multiplying  y  ,  by  the 
distance  that  the  division  point  is  from  the  base  of  the 
column. 


4.  The  moment  at  every  division  point  corresponding 
to  shear  is  found. 

5.  The  input  M-P-(J)  diagram  is  searched  to  find  the 
curvature  <Jk  corresponding  to  each  moment  NL  . 

6.  Moment-Area  principles  are  applied  to  find  the 
flexural  deformation  at  each  column  height  division  point. 


7.  The  deformation  profile  of  the  column  is  found  by 
adding  the  flexural  and  shearing  deformations,  A^  = 
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A 


V. 

1 


+  A 


F.  . 

l 


8.  If  axial  load  is  present  on  the  column,  addi¬ 


tional  moment  is  added  to  each  division  point  equal  to  AM 


9.  The  procedure  cycles  through  steps  5  to  8  until 


a  stable  deformation  pattern  is  reached  ie .  the  bending  mom¬ 
ent  diagram  of  the  column  does  not  change  significantly  be¬ 
tween  two  cycles. 


10.  M  and  60  are  recorded  where  M  and  60  are 
s  s  s  s 


defined  by  Eqns.  4-1  and  4-2  respectively. 


11.  The  column  shear  is  incremented  and  the  pro¬ 


cedure  starts  again  at  step  3. 


12.  The  procedure  is  stopped  when  the  moment  at  a 


column  division  point  requires  a  curvature  equal  to  or  in 
excess  of  the  largest  curvature  defined  by  the  member's 
input  M-P-cf)  relationship. 

The  procedure  as  listed  herein  may  be  followed  for  mem¬ 
bers  under  reversing  cyclic  load  as  long  as  hysteresis 
loops  are  defined  for  the  members  V-y  relationship  and  M-P- 
cj)  relationship.  This  was  done  when  tracing  the  load-defor¬ 
mation  responses  of  Beam  35,  Beam  43  and  Beam  46  described 
in  section  3-6. 

The  computer  program  which  performs  the  operations 
listed  above  is  listed  in  Appendix  E. 

The  M  -60  relationship  of  the  monotonically  loaded 
s  s 


cantilever  column  is  approximated  as  a  bilinear  relation¬ 
ship.  The  point  at  which  the  M  -60  relationship  changes 

s  s 

slope  corresponds  to  the  point  at  which  the  slope  of  the 
M— P—  <f>  diagram  first  becomes  very  small.  This  point  is  in¬ 
dicated  in  Fig.  3-2  as  the  point  at  which  the  compression 
reinforcement  yields. 

Once  the  column  has  been  analyzed  and  the  monotonic 

M  -60  relationship  recorded  it  is  assumed  that  a  member 
s  s 

of  length  Lq  loaded  so  as  to  have  the  same  M/.^  ratio  as 
the  column  analyzed  will  have  deformations  equal  to  its 
elastic  flexural  deformations  plus  6 0^  times  its  length 
Lq.  The  stiffness  matrix  of  any  member  is  then  found 
readily. 

The  frame  members  of  the  building  studied  within 
this  thesis  were  analyzed  using  cantilever  column  lengths 
corresponding  to  the  M/V(^  ratios  imposed  on  them  by  code 
specified  static  earthquake  loads.  This  assumption  was 
made  by  the  author  because: 

1.  No  other  M/v^  values  were  available. 

2.  A  realistic  M  -  60  relationship  was  required  for 

s  s 

every  member.  This  M  -6 0  relationship  would  be  invariant 

s  s 

throughout  the  dynamic  analysis.  The  dynamic  analysis 

program  as  written  could  not  generate  M  -6 0  relationships 

s  s 

corresponding  to  the  various  values  of  M/^  that  a  member 
was  found  to  have  as  the  earthquake  progressed. 
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The  decision  to  accept  the  code  values  of  M/ 


Vd 


was  tempered  by  the  fact  that  code  force  distributions 
are  based  on  response  spectrum  analyses  of  elastic 
structures.  It  was  assumed  that  until  the  earthquake 
accelerations  were  high  enough  to  cause  inelastic  action 
within  any  member,  the  members  would  indeed  be  subjected 
to  the  code  values  of  M/v^.  Crack  patterns  would  thus 
be  established  according  to  these  initial  M/^  values 
and  thus  even  though  the  M/  ^  value  of  a  member  might 
change,  the  deformations  of  the  member  would  be  close 
to  those  defined  by  the  initial  M/^  ratio.  Arguments  have 
have  also  been  presented  in  Section  3.4  describing  why 
the  deformations  of  these  members  may  be  assumed  to  be 
more  or  less  insensitive  to  changes  of  M/^ 


The  dynamic  analysis  program  developed  by  M. 

Suko  was  modified  to  follow  a  Clough  type  hysteresis 

load-deformation  response  following  the  rules  presented 

in  Section  3-5.  The  resulting  M  -60  relationship 

s  s 

is  shown  in  Fig.  4-5. 


4-4  Stiffness  Matrix  for  Frame 


4-4-1  Slope  Deflection  Equations  for  Members 
with  Rotational  Springs  and  Rigid  Stubs 


. 
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The  actual  structure  has  been  modeled  according  to 
the  procedure  described  in  the  previous  sections  (Sec. 

4-2  to  4-3) .  In  order  to  calculate  the  response  of  the 
frame,  it  is  first  necessary  to  modify  the  standard  slope 
deflection  equations  to  accommodate  the  presence  of  rota¬ 
tional  springs  at  the  member  ends  and,  if  required,  the 
presence  of  rigid  stubs  which  simulate  the  wall  width 
effect. 

The  member,  a-c-d-b,  shown  in  Fig.  4-6  is  considered 
a  general  example.  The  entire  member  length  is  denoted 
by  L  and  the  rigid  stubs  placed  at  the  left  and  right  ends 
have  lengths  of  A^L  and  ^L,  respectively.  Thus  the 
length  of  the  elastic  portion  of  the  member  is  A^L,  where 

Ai  +  A2  +  A3  =1 

and 

A-j-  >  0;  A2  ^  0  7  A^  >  0. 

A  sway  rotation, p  (between  the  end  a  and  the  end  b) , 
is  permitted  for  a  column  but  not  for  a  beam.  A  uni¬ 
formly  distributed  load,  w,  may  be  applied  to  a  beam  over 
its  entire  length.  Equivalent  rotational  springs  are 
located  at  the  ends  of  the  rigid  stubs  at  points  c  and 
d.  The  portion  c-d  is  assumed  to  remain  elastic  regard¬ 
less  of  the  deflected  shape  of  the  member. 


63 


The  M  -<5  6  relationship  for  the  rotational  spring  for 
s  s 


each  member  end  has  been  determined  by  the  method  described 
in  Sec.  4-3. 

The  additonal  angle  change  at  point  c,  -60  /  and  the 
■  c 

end  moment,  are  related  by: 


(4-3) 


and  similarly  at  point  d: 


with  appropriate  values  of  oi^,  c^and  62  depending  upon 
which  branch  of  the  moment-relaxation  angle  relationship  is 
describing  the  present  condition. 


The  end  moments,  and  M^a,  are  calculated  as: 
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(4-17) 

(4-18) 

(4-19) 

(4-20) 

(4-21) 

11}  (4-22) 


If  the  sway  rotation, p,  is  set  equal  to  zero  in  the 
preceding  equations,  the  behavior  of  a  beam  is  simulated. 

If 

w  =  0 

and 

A  i  =  A2  =  0/*  A  3  =  1 

are  substituted,  the  equations  simulate  the  action  of  a 
column.  The  derivation  of  Eqs.  4-5  and  4-6  is  detailed  in 
Appendix  C. 

It  is  noted  that  the  inelastic  behavior  (in  this  case, 

the  M  -60  relationships  for  the  rotational  springs  deviate 
s  s 


from  the  initial  linear  branch  passing  through  the  origin) 
is  expressed  by  the  same  equations,  by  changing  the  co¬ 
efficients  a  and  3^  or  and  32  in  Eqs.  4-3  and  4-4,  and 
in  Eqs.  4-5  and  4-6. 

4-4-2  Stiffness  Matrix  for  the  Frame 

When  the  end  moments  for  each  member  have  been 
expressed  by  Eqs.  4-5  and  4-6,  it  is  possible  to  formulate 
the  moment  equilibrium  condition  at  each  nodal  point  and 
the  shear  equilibrium  equation  for  each  story.  In  these 
equations,  the  joint  rotations  and  story  shears  are  written 
in  terms  of  the  horizontal  deflections  at  each  floor  level. 

Using  the  notation  defined  in  Sec.  4-2,  the  number 
of  unknowns  is  equal  to  the  sum  of  the  number  of  stories, 

N  ,  and  the  number  of  joints,  N  (N,  +1) ;  ie . ,  a  total  of 
Ns(N^+2).  The  coefficient  matrix,  [R] ,  is  therefore 
N  (N,+2)  x  N  (N,  +2 )  in  size.  Letting  the  vector{0}  denote 

S  D  o  -D 

the  unknowns  (consisting  of  joint  rotations  and  story 
shears),  the  equilibrium  equations  are  expressed  as: 

[R]  {0}  =  (B>  (4-23) 

where  the  vector  {B>  consists  of  fixed  end  moment  terms 
and  the  sway  rotation  terms.  By  arranging  the  equilibrium 
equations  in  an  appropriate  order,  the  coefficient  matrix 
[R]  becomes  a  band  matrix  with  a  width  of  2Nb+3  and  will 
have  the  diagonal  elements  dominant  in  most  cases. 
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The  horizontal  loads  Cor  story  shears)  compatible  with 
the  assumed  deflection  shape  used  to  obtain  the  vector  {B } 
are  determined  by  extracting  the  story  shear  terms  from  the 
solution  {6}  .  If  the  vector (b)  is  computed  by  assuming 
the  sway  rotations  are  zero  at  every  story,  the  story  shears 
(the  sum  of  the  horizontal  loads  applied  at  floor  levels 
above  a  particular  story)  required  to  restrain  the  frame  in 
this  position  are  calculated.  This  vector  is  denoted  by  {ri^}, 
which  is  a  zero  vector  unless  the  uniformly  distributed 
loads  on  the  beams  produce  lateral  sways.  If  the  vector  {b} 
is  calculated  by  permitting  a  unit  displacement  only  at  the 
i-th  floor  level  (from  the  top) ,  the  story  shears  required 
to  maintain  the  other  floor  levels  in  the  undeflected  posi¬ 
tion  can  be  calculated  as  .  Then,  the  i-th  column 

of  frame  stiffness  matrix,  [G] ,  is  given  by  ,  which  is: 


■f "n i >  =  (up  -  {n0> 


(4-24) 


Repeating  the  computation  of  (b^}  for  i  =  1  to  Ng,  the 
elements  of  the  complete  frame  stiffness  matrix  are  obtained. 
Thus  the  story  shears  (Q } ,  and  the  corresponding  deflections 
at  each  floor  level,  {x},  are  related  by: 

(4-25) 

where  the  vector  {£q}  is  the  initial  deflection  at  each 
floor  level  produced  by  vertical  loads  alone  applied  to  the 
beams,  and  is  obtained  by: 

U0)  =  -Ig]_1{b0}  • 


{Q}  =  [G]  (  {x}  -UQ}) 


(4-26) 


68 


Eq.  4-25  is  valid  if  the  M  -60  relationship  for  every 

rotational  spring  in  the  frame  remains  elastic.  If  any  of 

the  rotational  springs  are  forced  into  the  inelastic  branches 

of  the  M  -60  relationships,  the  stiffness  matrix  must  be 

adjusted.  Let  the  vector  {£}  be  the  deflections  at  each 

floor  level  and  let  the  vector  {g}  be  the  story  shears  at  the 

instant  that  changes  are  required  in  the  stiffness  matrix. 

Equilibrium  equations,  similar  to  Eq.  4-23,  are  constructed 

using  new  branches  of  the  M  -6 0  relationships  (substituting 

s  s 

a  new  set  of  and  3^  or  a  new  set  of  and  in  the  modi¬ 
fied  slope  deflection  equations)  at  the  pertinent  member  ends. 
The  new  stiffness  matrix,  [G] ,  is  calculated  in  exactly  the 
same  manner  as  before.  The  deflection  at  the  floor  levels, 

{  x  },  and  the  story  shears,  {Q},  are  now  related  by: 

{Q}  =  [G]  ({x}  -{£})  +  (4-27  ) 

The  preceding  procedure  is  repeated  as  required  to  obtain  the 
updated  stiffness  matrix  and  the  corresponding  relationship 
between  the  story  shears  and  deflections. 

4-5  Equations  of  Motion 

4-5-1  Formulation  of  Equations  of  Motion 

If  the  masses,  m. ,  are  assumed  to  be  concentrated  at  each 
floor  level  and  damping  is  assumed  to  be  developed  by  the  re¬ 
lative  motion  of  adjacent  floors  as  stated  in  Sec.  4-2  or  as 
shown  in  Fig.  4-1,  the  equations  of  motion  are  formulated 
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as  outlined  below. 

Let  x.,  x.r  and  jb*  be  the  deflection,  velocity  and 

li-*- 

acceleration ,  respectively,  at  the  i-th  floor  relative  to  the 
ground  and  let  vectors  {  x} ,  {x}  ,  and  {x*}  represent  sets  of 
such  values  from  the  top  floor  to  the  bottom  floor  at  any 
instant  during  the  motion. 

The  restoring  shear  at  the  i-th  story,  Q^,  is  the  i-th 
element  of  the  vector  {Q},  which  is  a  function  of  (x)  and  is 
expressed  in  general  by  Eq.  4-27;  i.e., 

{Q}  =IG]  ({x}  -{£}  )  + 

where  the  stiffness  matrix,  [G]  ,  and  the  vectors,  (U  and{g} 
depend  upon  the  behavioral  history  of  the  frame  from  the 
initiation  of  motion  to  the  instant  under  consideration. 

If  the  acceleration  of  the  ground  motion  is  given  by 
y^  (t),  the  acceleration  at  the  i-th  floor  with  respect  to 
the  absolute  axis  is  x!j  +  Yq  /  and  thus  the  inertia  force 
due  to  D'Alembert's  principle  is  -m^(x^  +y^  ). 

The  evaluation  of  the  damping  effect  is  complex.  How¬ 
ever,  it  is  simply  assumed  here  that  the  damping  force  is 
proportional  to  the  relative  velocity  of  adjacent  floors  and 
is  given  by  c^ (x^  ,  where  the  damping  coefficient,  c^, 

is  taken  as : 


c .  = 

l 


2h .  G. . 

l  li 

“L 


(4-28) 


in  which  G. .  is h the  i-th  diagonal  element  of  the  initial 

li 


stiffness  matrix  [G]  (which  is  expressed  in  terms  of  story 
shears)  ,  and  is  the  circular  frequency  in  the  first  nat¬ 
ural  mode  of  the  undamped  frame;  hu  is  an  arbitrary  constant 
serving  the  same  purpose  as  does  the  percentage  of  critical 
damping  in  the  analysis  of  single  degree-of-f reedom  systems. 

Since  the  applied  loads  (inertia  forces)  must  be  in 
equilibrium  with  the  frame  restoring  forces  and  the  forces 
developed  by  damping  as  shown  in  Fig.  4-7,  the  following 
conditions  must  be  satisfied. 

At  the  first  story: 

-m1  (xL  +  y')  =  Q1  ({x})  +  c1(x1-x2) 

- (4-29) 

At  the  i-th  story  (i  =  2,  3,  ...  ,  N  -1) : 

O 


Z  {  -m.  (x*  +  y*)} 

j=l  11  -1 


Q .  ( {x} )  +  c  .  (x . -x .  , ) 

vi  L  J  li  l+l 


. . .  (4-30) 


At  the  bottom  story  (the  N  -th  story) : 

s 


Z  {-m. (x:  +  Yq  ) > 

j=l  J  J 

Or  in  a  concise  form: 


Qn  ({x}) 
S 


+ 


(4-31) 


x:  =  -  —  {c.x  .  +  Q,  ({x})  +  s.(t)}  (4-32) 

i  m^  ill  l 

for  i  =  1,  2,  ...  ,N.  These  equations  are  termed  the 

s 

equations  of  motion.  Where: 
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Si(t)  =  CMAi  +  Yq  (t) 


CSM.  -  c.x.  n 
1  l  l+l 


(4-33) 


and  the  last  term,  c.x.,,  is  zero  for  i  =  N  .  CMA.  and 

1  1+1  s  1 

CSM^  are  given  by: 

for  i  =  1  :  CMA.  =  0  ;  CSM.  =  mn 

i  'll 


i-1 

for  i  =  2  to  N  -  1  :  CMA.  =  Z  m.x-*.  ; 

s  l  3  J 

j=l 


for  i 


CSM. 

l 

N  -1  ' 

s 

N  :  CMA.  =  Z  m.x:; 
s  i  d  3 

j=i 
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Z  m . 
3 

j=l 


CSM. 
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(4-34) 


4-5-2  Numerical  Integration 

To  solve  the  coupled  second  order  differential  equa¬ 
tions  such  as  Eq.  4-32,  a  numerical  integration  method  is 
employed.  The  linear  acceleration  method  is  used  in  this 
study. 

The  acceleration  at  any  floor  is  assumed  to  change 
linearly  within  the  time  interval.  At;  i.e.,  if  the  acel- 
eration  at  a  time  nAt  (from  the  initiation  of  vibration;  n 
is  an  integer)  at  the  i-th  floor  is  x^  (n)  and  the  accelera¬ 
tion  at  time  At  later  at  that  floor  is  x^  (n+1)  ,  then  the 
derivative  at  time  nAt,*x^  (n)  ,  is  assumed  to  be: 
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x! (n+1)  -  xt (n) 

x  (n)  =  -  , 

At  (4-35) 

and  the  fourth  (and  higher  degree)  derivative  of  x^  vanishes. 
Therefore,  assuming  that  x^(t)  is  differentiable  for  at 
least  three  times  between  nAt  and  (n+1) At,  Taylor's  expan¬ 
sion  is  written  as: 


x .  (n)  x !  (n)  ~  x! * (n) 

x.  (n+1)  =  x.  (n)  +  — - - At  +  — - At  +  — - -  At 

1  1  i:  2:  3: 


...  (4-36) 

and  by  differentiating: 


x!  (n)  x!  *  (n) 

k.  (n+1)  =  x.  (n)  +  — At  +  — yy At 

1  I>  ±  •  z  • 

Substituting  Eq .  4-35  into  Eqs.  4-36  and 

and  x^(n+l)  are,  respectively,  expressed  as: 


(4-37) 


4-37,  x^ (n+1) 


xi(n+l) 


x.  (n)  +  x.  (n)  At  +  ix!  (n)At^  +  -^-x!  (n+1)  At^ 

1  1  o  1  b  1 


. (4-38) 

and 

x.  (n+1)  =  x.  (n)  +  yxd  (n)  At  +  yx!  (n+1)  At.  (4-39) 

1  Z  1  Z  J. 

Eqs.  4-38  and  4-39  together  with  Eq.  4-32  determine 
the  deflection,  velocity  and  acceleration  at  each  floor  at 
every  instant  of  the  motion.  For  determination  of  these 
values,  however,  an  iterative  procedure  is  required. 

The  chart  shown  in  Fig.  4-8  describes  this  procedure. 


■ 
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The  computer  program  which  is  used  to  perform  the 
dynamic  analysis  of  a  frame  shown  in  Fig.  4-1,  using  the 
above  method  of  numerical  technique,  is  listed  in  Appendix  D. 

4-5-3  Natural  Periods  of  Vibration 

It  is  sometimes  necessary  to  know  the  smallest  natural 
period  of  a  frame  to  select  a  proper  time  interval  for  the 
numerical  integration  process.  When  the  linear  acceleration 
method  is  used  to  solve  Eq.  4-32,  the  time  step,  At,  in  Eqs. 
4-38  and  4-39  must  be  less  than  approximately  one-tenth  of 
the  smallest  natural  period  in  order  to  obtain  convergence. 

The  natural  periods  are  also  used  as  reliable  para¬ 
meters  to  classify  the  overall  stiffness  of  frames.  For 
this  purpose,  however,  only  the  first  two  or  three  modes 
would  be  sufficient. 

In  the  computer  program  listed  in  Appendix  D,  the  mini¬ 
mum  natural  period  and  the  first  three  natural  periods  and 
their  corresponding  natural  modes  are  calculated  prior  to  the 
response  calculation.  The  smallest  and  the  largest  natural 
periods  are  computed  using  Stodola's  method  (power  iteration 
method) .  Knowing  the  first  eigenvalue  (largest  natural 
period)  and  the  corresponding  eigenvector  (mode) ,  the  second 
and  the  third  eigenvalues  and  the  corresponding  eigenvectors 
are  obtained  successively  using  Wielandt's  deflation  method. 
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FLOOR/ 


- -  FLEXIBLE  MEMBER 

. . . RIGID  MEMBER 

—9—  EQUIVALENT  ROTATIONAL  SPRING 
-o-  PINNED  JOINT 

PIP  MASS  ON  ROLLERS 

^77777777^77 


DASHPOT  TO  SIMULATE  VISCOUS  DAMPING 
(  C|:  DAMPING  FORCE  PER  UNIT  VELOCITY) 


FIG.  4-1  ANALYTICAL  MODEL 
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\  Bay  No. 

story\ 


ENCIRCLED  NUMBER  :  JOINT  NUMBER 
BRACKETED  NUMBER  :  MEMBER  NUMBER 


FIG.  4-2  NUMBERING  CONVENTION 
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FIG.  4-3  COLUMN  WITH  AXIAL  LOAD 
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FIG.  4-4  RESTRAINED  COLUMN 
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FIG.  4-5  .Typical  Ms-ses  Relationship  for 
Reversing  Cyclic  Load 
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FIG.  4-6  TYPICAL  MEMBER 


FLOOR/ 
STORY  _ 


80 


O 
:  >- 
+ 

:x~ 


£ 

i 

A 


o 

+ 

CM 

:x 

CM 

£ 


:£ 

+ 

:>T 


T  T  T  T 


+ 
•  x 

i 

•X 

0“ 


0 


CM 


FIG.  4-7  EQUILIBRIUM  OF  FORCES  IN  MOTION 
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Chart  for  Numerical  Integration 

(to  be  continued) 


Fig. 4-8 
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*1  When  calculating  Gh({x})  and  S^(t),  new  values 
of  (n+1)  ,  Xj  (n+1)  and  x^  (n+1)  are  used  for 
j  <  i. 

*2  In  the  computer  program,  x. (n+1)  and  x. (n+1) 

^  ^  ^  '  l  new  l  new 

are  overwritten  on  x.  (n+1)  ,  ,  and  x.  (n+1)  ,  ,  as 

l  old  l  old 

soon  as  they  are  calculated. 


Fig 


4-8  (continued) 


Chart  for  Numerical  Integration 


Chapter  5 
BEHAVIORAL  STUDY 

5-1  Introduction 

This  chapter  discusses  the  building  frames  considered, 
how  they  were  selected  and  designed  and  the  range  of  signi¬ 
ficant  parameters  studied.  The  results  predicted  for  6  sec¬ 
onds  of  the  1940  El  Centro  NS  accelerogram  using  the  earth¬ 
quake  analysis  presented  in  this  thesis  are  discussed  in 
later  sections  of  this  chapter. 

5-2  Building  Frame  Considered 

The  basic  frame  of  this  study,  shown  in  Fig.  5-1, 
was  designed  by  engineers  of  the  Portland  Cement  Association. 
The  design  was  deemed  to  be  typical  of  those  used  for  high- 
rise  apartment  buildings.  All  axial  and  lateral  forces  are 
carried  by  the  shear  walls.  This  design  could  also  repre¬ 
sent  a  structure  consisting  of  a  shear  wall  connected  to  a 
hinged  steel  frame,  which  relies  entirely  on  the  shear  wall 
for  lateral  resistance.  A  static  earthquake  analysis  was 
carried  out  on  this  frame  based  on  the  equivalent  earthquake 
loads  presented  in  the  1973  Uniform  Building  Code.  The 
base  shear  caused  by  the  code  specified  earthquake  loading, 
for  one  bent  of  the  frame,  was  determined  using  the  formula: 

VD  =  ZCKW  (5-1) 

a 
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where 


VB  =  base  shear 

Z  =  earthquake  zone  factor 

C  =  0.05  T~ 

T  =  fundamental  period  of  structure 


K 


W 


Horizontal  force  factor  reflecting 
type  of  construction 


=  Total  weight  of  bent 
The  base  shear,  V  ,  was  distributed  over  the  height 
of  the  building  in  accordance  with  the  following  formula: 


X 


=  V. 


B 


w  h 
x  x 

Zwh 


(5-2) 


where 


F  =  lateral  force  at  level  x 


x 

w  =  weight  at  level  x 

h  =  height  of  level  x  above  base 
x  ^ 

£wh  =  sum  of  all  w  h 

x  x 

The  shear,  axial  load,  and  moment  for  the  code  speci¬ 
fied  earthquake  loading  were  determined  using  the  above 
formulae  and  statics. 


5-3  Building  Parameters  Studied 

The  most  important  parameter  studied  was  the  horizontal 
force  factor,  K,  in  Eqn.  5-1.  Changes  in  the  value  of  K 
are  mirrored  directly  in  changes  of  the  values  of  design 
base  shear  and  design  seismic  moment.  Values  of  K  listed 
in  the  Structural  Engineers  Association  of  California  (1973) 
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code  ,  typical  of  those  in  other  codes,  are  shown  in  Table 

5-1. 

Another  parameter  studied  was  the  effect  of  taper¬ 
ing  the  size  and  stiffness  of  the  shear  wall  from  base  to 
top  of  structure  in  contrast  to  having  a  prismatic  shear 
wall  with  constant  size  and  stiffness.  In  a  normal  building 
the  shear  walls  "taper"  either  due  to  a  relatively  gradual 
reduction  in  wall  thickness  due  to  decreasing  axial  loads 
or  due  to  the  abrupt  discontinuation  of  portions  of  the 
walls  or  elevator  shafts.  Studies,  such  as  those  of 
Giberson  mentioned  in  Chapter  2,  have  shown  differences  in 
behavior  between  tapered  and  prismatic  structures. 

The  third  parameter  studied  was  the  influence  of 
the  cross-sectional  shape  of  the  shear  wall  upon  the  dynamic 
behavior  of  the  building.  Flanged  sections  having  approxi¬ 
mately  the  same  flexural  stiffness  and  yield  moment  as 
rectangular  sections  have  correspondingly  less  web  area 
to  resist  shearing  deformations.  Members  which  develop 
inclined  cracking  and  thus  significant  shear  deformations 
are  approximately  half  as  stiff  as  members  without  inclined 
cracking.  Thus  the  effect  of  different  shear  stiffnesses 
within  members  of  the  frames  studied  on  the  dynamic  behav¬ 
ior  of  cross-sections  having  equal  flexural  stiffness  and 
yield  moment  was  the  third  parameter  studied. 
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5-3-1  Range  of  Building  Parameters  Studied 

The  capacity  of  the  rectangular  shear  wall  cross-section 
chosen  for  this  building  by  Portland  Cement  Association 
engineers  corresponded  to  a  K  value  of  2.17  and  a  load  fac¬ 
tor,  ~ — /  of  1.75  against  flexural  yielding.  This  high 
^cap 

value  of  K  resulted  from  providing  the  minimum  reinforcing 
for  walls  specified  by  ACI  318-71.  Typical  values  of  K 
given  by  building  codes  for  this  type  of  building  range  be¬ 
tween  0.67  to  1.33,  therefore  dynamic  behavior  at  these  K 
values  was  also  of  interest. 

The  reduction  in  K  value  while  maintaining  base  shear 
and  seismic  moment  at  the  desired  proportion  of  the  wall  cap¬ 
acity  involved  increasing  the  weight  of  each  story  of  the 
structure  as  shown  by  Eqn.  5-1.  A  hypothetical  pinned  frame 
was  added  to  the  shear  wall  to  provide  support  for  the  extra 
weight  leaving  the  axial  load  level  and  capacity  of  the 
shear  wall  constant.  The  weight  assumed  at  each  floor  level 
corresponded  to  the  K  value  assumed  for  the  frame  and  did 
not  change  for  tapered  or  prismatic  shear  walls. 

The  building  as  originally  designed  was  tapered.  Pris¬ 
matic  buildings  were  formed  by  extending  the  first  story 
shear  wall  cross-section  and  reinforcement  to  the  top  of 
the  building. 

I-shaped  shear  wall  cross-sections  were  designed  to 
have  essentially  the  same  moment  of  inertia  and  the  same 
balanced  moments  as  the  basic  rectangular  shear  wall  cross- 


sections.  Cross-section  capacities  for  both  rectangular 
and  I-shaped  shear  wall  cross-sections  are  listed  in  Table 

5-2. 

The  buildings  were  considered  to  be  fixed  at  the  base 
No  attempt  was  made  to  study  the  dynamic  effects  caused  by 
soil-structure  compliance. 

The  buildings  were  subjected  to  6  seconds  of  the  1940 
El  Centro  NS  earthquake  accelerogram.  Since  the  structures 
studied  had  minimum  natural  periods  of  the  order  of  0.01  sec¬ 
onds,  the  time  step  used  in  solving  the  iterative  process 
depicted  in  Fig.  4-8  was  0.0005  seconds.  The  necessity  for 
this  small  time  step  is  partially  explained  in  Sec.  4-5-3. 
The  small  time  step  led  to  large  computer  time  require¬ 
ments  thus  it  became  necessary  to  choose  an  earthquake  acce¬ 
lerogram  having  maximum  peaks  of  acceleration  and  antici¬ 
pated  maximum  dynamic  effects  within  a  limited  time  period. 
The  first  6  seconds  of  the  1940  El  Centro  NS  accelerogram 
was  considered  to  best  fit  this  requirement. 

Three  tapered  rectangular  shear  wall  structures, 
corresponding  to  the  three  K  values,  were  first  analyzed. 
Considering  these  results,  it  was  found  that  there  was  no 
necessity  of  analyzing  further  shear  wall  structures  with 
masses  corresponding  to  the  two  larger  K  values  as  the  shear 
wall  structure  with  masses  adjusted  for  a  K  value  of  0.67 
was  responding  elastically  to  the  input  earthquake  acceler¬ 
ogram.  The  last  four  analyses  were  therefore  for  prismatic 
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rectangular,  prismatic  I  and  tapered  I  shear  wall  structures 
with  masses  adjusted  for  a  K  value  of  0.67. 

Structural  properties  of  the  seven  shear  wall  struct¬ 
ures  analyzed  are  listed  in  Tables  5-3  to  5-9.  The  hinged 
steel  frame  was  considered  to  be  made  up  of  stiff  beams  and 
columns  with  very  weak  rotational  springs  at  their  ends. 

Henceforth  each  structure  analyzed  will  be  referred 
to  using  a  series  of  letters  and  numbers.  The  series  cor¬ 
responds  to  taper,  type  of  wall  and  K  value.  Two  examples 
would  be  TR0.67  and  PI0.67  which  correspond  to  tapering 
rectangular  and  prismatic  I-shaped  shear  wall  structures' 
with  masses  adjusted  for  a  K  value  of  0.67.  For  the  PI0.67 
structure  an  additional  variable  is  denoted  in  brackets  to 
show  the  number  of  floors,  counted  from  the  base,  which 
were  assumed  to  develop  inclined  cracking  and  significant 
shear  deformations.  PI0.67(12)  was  analyzed  to  obtain  a 
direct  comparison  between  a  tapered  structure  and  a  pris¬ 
matic  structure  both  of  which  were  assumed  to  have  inclined 
cracking  within  their  lower  12  floors.  The  actual  shear 
force  on  PI0.67  structure  was  only  high  enough  to  cause 
inclined  cracking  in  the  lower  6  floors  of  the  structure 
thus  PI0.67(6)  was  analyzed. 

5-4  Dynamic  Response  Spectrum  for  Elastic  Systems 

For  a  specific  excitation  of  a  simple  elastic  sys¬ 
tem  having  a  particular  percentage  of  critical  damping,  the 
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maximum  response  is  a  function  of  the  natural  period  of 
vibration  of  the  system.  A  plot  of  the  maximum  response 
against  the  period  of  vibration,  T,  is  called  a  "response 
spectrum" .  The  most  useful  response  spectra  are  those  for 
acceleration  x’ ,  velocity  x,  and  displacement  x.  Since  the 
response  spectra  give  the  maximum  values  of  these  quantities 
for  each  period  considered,  it  is  desirable  to  use  a  dif¬ 
ferent  symbol  to  indicate  the  spectral  value.  In  the  follow 
ing,  the  spectral  value  of  the  displacement  relative  to 
ground  is  designated  by  the  symbol  SD'  the  spectral  value 
of  the  velocity  relative  to  ground  is  denoted  by  the  symbol 
S  ,  and  the  spectral  value  of  the  absolute  acceleration 
of  the  masses  is  denoted  by  the  symbol  S 

Fig.  5-2  is  a  response  spectrum  for  elastic  sys- 
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terns  for  the  1940  El  Centro  earthquake.  Consideration  of 
this  response  spectrum  reveals  the  following: 

1.  Structures  responding  essentially  in  their  funda¬ 
mental  mode  with  fundamental  periods  from  0.15  to  1.5  sec¬ 
onds  experience  high  accelerations  during  an  El  Centro  type 
earthquake.  Displacements  are  usually  small. 

2.  Structures  responding  essentially  in  their  funda¬ 
mental  mode  with  fundamental  periods  of  from  1.5  to  7.0  sec¬ 
onds  experience  high  displacements  at  comparatively  low 
acceleration  levels  during  an  El  Centro  type  earthquake. 

Considering  Table  5-10  which  lists  the  fundamental 
and  other  periods  of  the  structures  analyzed,  one  can  see 
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that  the  shear  wall  structures  analyzed  belong  to  the  second 
category. 


Results  of  modal  analyses  carried  out  on  the  shear 


wall  structures  of  this  dissertation  using  the  mode  shapes 
and  natural  periods  produced  by  the  dynamic  analysis  com¬ 
puter  program  and  the  response  spectrum  of  Fig.  5-2  are 
listed  in  Table  5-11.  The  response  listed  represents  the 
root  mean  square  value  of  the  participations  of  the  first 
three  modes.  The  participation  of  the  second  and  third 
modes  was  negligible  in  all  cases  for  these  analyses. 

The  period  of  a  one  degree-of-f reedom  elastic  sys¬ 
tem  is  given  by : 


2  TT 


T 


where  k  =  stiffness  of  system 

M  =  mass  of  system 

If  one  considers  this  equation  as  it  applies  to  a 
one  degree-of-f reedom  system  with  constant  k  and  varying 
mass  due  to  variations  in  horizontal  force  factor  K,  one 
finds  that  as  the  value  of  K  decreases,  the  value  of  M  in¬ 
creases  and  the  period  T,of  the  structure  increases  and 
vice-versa . 


This  seems  to  have  led  to  a  desirable  situation 


for  the  shear  wall  structures  considered  herein.  As  the 
value  of  K  decreased  and  the  masses  of  the  system  increased, 
the  period  lengthened  and  the  accelerations  of  the  system 
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dropped.  The  resulting  force  level  was  below  the  yield 
level  of  the  system.  In  the  opposite  situation,  as  the 
value  of  K  increased  and  the  mass  of  the  system  decreased, 
the  period  shortened  and  the  accelerations  of  the  system 
increased.  Resulting  forces  formed  as  a  product  of  the 
masses  and  accelerations  were  still  below  the  yield  level 
of  the  system. 

One  can  follow  the  above  discussion  directly  on  the 
response  spectrum  of  Fig.  5-2.  The  response  spectrum  also 

tends  to  predict  the  larger  than  expected  displacement  of 

the  TR1.33  structure  which  had  a  fundamental  period  of  3.221 

seconds  corresponding  to  a  peak  in  the  response  spectrum. 

Values  of  displacement  predicted  by  modal  analysis  com¬ 
pare  reasonably  well  with  those  found  by  the  dynamic  analy¬ 
sis  program  of  this  dissertation.  Maximum  moment  values 
predicted  by  modal  analysis  exceed  the  yield  moments  of 
the  rectangular  shear  wall  structures  by  10  to  20  percent 
and  are  close  to  yield  for  the  I  shaped  structures. 

5-5  Observed  Structural  Response 

All  structures  analyzed  responded  elastically  to  the 
first  6  seconds  of  the  1940  El  Centro  NS  accelerogram. 
Maximum  displacements  of  each  floor  for  each  of  the  seven 
structures  analyzed  are  shown  in  Fig.  5-3  and  Fig.  5-4. 
Maximum  interfloor  displacements  for  each  of  the  seven 
structures  analyzed  are  shown  in  Fig.  5-5  and  Fig.  5-6. 


. 


92 


Similarily  Fig.  5-7  and  Fig.  5-8  show  maximum  rotations  from 
vertical  of  the  joints  of  each  beam-column  joint  and  Fig.  5-9 
and  Fig.  5-10  show  maximum  rotations  from  vertical  of  the 
joints  where  the  beams  frame  into  the  shear  wall.  Observed 
structural  responses  will  be  discussed  in  the  following  sec¬ 
tions  . 

5-5-1  Presence  of  Various  Modes  in  Observed  Structural 
Responses 

The  time  of  occurence  of  each  floor's  maximum  dis¬ 
placement  for  each  structure  analyzed  is  listed  in  Tables 
5-12  to  5-18.  The  shape  of  the  maximum  displacement  res¬ 
ponses  and  the  fact  that  all  maximum  displacements  within  a 
structure  occur  almost  concurrently  seems  to  indicate  that 
the  participation  of  higher  modes,  usually  out  of  phase 
with  the  fundamental  mode,  were  very  small.  This  observation 
was  confirmed  by  the  modal  analysis  of  Sec.  5-4. 

5-5-2  Effect  of  Horizontal  Force  Factor  K 

Changes  in  response  which  could  be  attributed  to 
changes  in  the  value  of  the  horizontal  force  factor  K,  are 
probably  more  correctly  associated  with  changes  in  funda¬ 
mental  period  of  the  structure.  As  K  is  increased,  the 
fundamental  period  decreases  and  vice-versa. 

As  K  decreases  and  the  fundamental  period  increases, 
maximum  displacements,  maximum  interfloor  displacements, 
maximum  shear  wall  joint  rotations  and  maximum  column  rota¬ 
tions  all  tended  to  increase.  If  K  is  held  constant  and 
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the  stiffness  of  the  section  of  the  building  considered  is 
held  constant,  maximum  displacements,  maximum  interfloor 
displacements,  maximum  shear  wall  joint  rotations  and  maxi¬ 
mum  column  joint  rotations  tend  to  remain  constant. 

Fig.  5-3  shows  that  as  K  decreased  maximum  displace¬ 
ments  tended  to  increase.  The  large  maximum  displacements 
of  the  TR1.33  building  must  be  attributed  to  resonance 
caused  by  a  matching  of  the  fundamental  period  of  the  TR1.33 
building  and  the  period  of  the  1940  El  Centro  "forcing  func¬ 
tion".  Fig.  5-4  shows  that  when  K  is  held  constant,  maxi¬ 
mum  displacements  tend  to  stay  fairly  constant.  When  the 
stiffness  of  the  section  of  the  building  considered  is  also 
held  constant  as  in  the  lower  6  stories  of  the  3  buildings 
of  Fig.  5-4  the  maximum  displacements  also  remain  quite 
constant. 

Similar  observations  can  be  made  concerning  Fig.  5-5 
and  Fig.  5-6  relating  to  maximum  interfloor  displacements, 
concerning  Fig.  5-7  and  Fig.  5-8  relating  to  maximum  col¬ 
umn  joint  rotations  and  concerning  Fig.  5-9  and  Fig.  5-10 
relating  to  maximum  shear  wall  joint  rotations. 

5-5-3  Tapered  Structures  versus  Prismatic  Structures 

Tapered  structures  experienced  greater  deformations 
than  did  their  prismatic  counterparts  when  subjected  to  the 
1940  El  Centro  earthquake.  Fig.  5-3  shows  the  TR0.67  build¬ 
ing  to  have  had  larger  maximum  displacements  than  the  PRO. 67 
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building.  Similarily  Fig.  5-4  shows  the  TI0.67  building  to 
have  had  larger  maximum  displacements  in  its  upper  10  sto¬ 
ries  than  either  of  the  PI0.67  structures.  Fig.  5-4  indi¬ 
cates  that  within  stories  of  equal  stiffness,  the  lower  6 
stories  in  this  case,  the  TI0.67  structure  and  both  PI0.67 
structures  deformed  essentially  equal  amounts.  Fig.  5-7  and 
Fig.  5-9  show  that  the  larger  maximum  displacements  of  the 
TR0.67  structure  over  those  of  the  PRO. 67  structure  were 
due  to  the  TR0.67  structure  having  greater  curvatures  in 
its  bottom  stories  which  led  to  larger  maximum  displace¬ 
ments  and  maximum  interfloor  displacements  in  this  struc¬ 
ture  than  in  the  PRO. 67  structures. 

Table  5-10  shows  the  fundamental  periods  of  the  three 
I-shaped  shear  wall  structures  to  be  virtually  identical. 
The  fundamental  periods  of  the  two  rectangular  shear  wall 
structures  are  also  virtually  identical.  The  modal  response 
of  Table  5-11  shows  the  rectangular  shear  wall  structure 
to  be  at  higher  force  levels  than  the  I-shaped  shear  wall 
structures.  It  may  be  then  that  differences  between  tap¬ 
ered  and  prismatic  structures  only  become  noticeable  at 
force  levels  close  to  the  yield  level  of  these  structures. 

5-5-4  Effect  of  Changing  Shear  Stiffness 

Shear  deformations  were  included  in  developed  M_-<5  0 _  re- 

b  b 

lationships  for  the  lower  parts  of  the  TI0.67,  PI0.67(6) 
and  PI 0 . 67 ( 12 )  structures.  In  these  structures,  the  shears 
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predicted  by  the  1973  Uniform  Building  Code  static  earth¬ 
quake  loadings  were  greater  than  the  uncracked  shear  capa¬ 
cities  of  the  I-shaped  cross-sections  within  the  first  twe¬ 
lve  stories  for  the  TI0.67  structure  and  within  the  first  6 
stories  for  the  PI0.67(6)  structure,  and  shear  deformations 
were  included  in  the  cracked  portions  of  the  structure. 

The  PI0.67(12)  structure  in  which  shear  cracking  was  assumed 
to  occur  in  the  lower  12  stories  was  analyzed  for  compari¬ 
son  to  the  TI0.67  structure.  Its  first  12  stories  were  as¬ 
sumed  to  have  shear  deformations  as  did  the  TI0.67  structure. 

I-shaped  shear  wall  structures  with  shear  deformations 
were  contrasted  to  rectangular  shear  wall  structures  having 
the  same  flexural  stiffness  and  moment  capacity.  Thus  the 
TI0.67  structure  was  compared  to  the  TR0.67  structure  and 
the  PI0.67  structures  were  compared  to  the  PRO. 67  structure. 

Fig.  5-11  and  Fig. 5-12  show  that  changing  the  shear 
stiffness  of  a  structure  did  not  significantly  affect  its 
maximum  displacement  response.  Changing  the  shear  stiff¬ 
ness  did  however  change  the  magnitude  and  distribution  of 
maximum  interfloor  displacements,  column  joint  rotations 
and  shear  wall  joint  rotations.  Maximum  interfloor  dis¬ 
placements  are  shown  in  Fig.  5-13  and  Fig.  5-14.  Maximum 
column  joint  rotations  are  shown  in  Fig.  5-15  and  Fig.  5-16. 
Fig.  5-17  and  Fig.  5-18  show  maximum  shear  wall  joint  rota¬ 
tions.  Deformations  tended  to  concentrate  at  the  upper  end 
of  the  zone  in  which  shear  deformations  occurred  and  then  to 
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lessen  to  values  less  than  those  experienced  by  buildings 

which  did  not  have  shearing  deformations . 

This  action  seems  to  be  analogous  to  that  of  the 

39 

soft  story  concept  proposed  by  Fintel  and  Khan. 

The  author  notes  from  Figs.  5-13  to  Fig.  5-18  that 
the  lower  the  number  of  stories  with  shear  deformations  the 
lower  the  differences  between  structures  with  and  without 
shear  deformations.  This  may  be  an  argument  for  prismatic 
structures  over  tapered  structures  if  shearing  deformations 
are  expected  as  prismatic  structures  will  usually  have  fewer 
floors  with  shearing  deformations. 

5-6  Performance  of  Structures 

The  main  deflection  criterion  for  high  rise  buildings 
is  lateral  drift.  This  is  the  relative  magnitude  of  the  lat¬ 
eral  displacement  at  the  top  of  a  building  with  respect  to 
its  height  or  alternatively,  the  ratio  of  the  relative  lateral 
story  displacement  to  the  story  height,  assuming  a  more  or 
less  uniform  story  height. 

Limiting  values  of  this  ratio,  commonly  called 
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deflection  limits  are  usually  about  1/500  for  wind  loading. 

The  performance  of  modern  buildings  designed  in  recent  years 
to  meet  this  criterion  appears  to  have  been  satisfactory  with 
respect  to  the  following  effects  of  sway  under  wind  loading: 

(1)  the  stability  of  the  individual  columns  as  well 
as  the  structure  as  a  whole. 
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2.  the  integrity  of  nonstructural  partitions  and 

glazing. 

3.  the  comfort  of  the  occupants  of  such  buildings. 

Reference  8  recommends  an  allowable  drift  due  to  static 

earthquake  forces  twice  that  normally  used  in  designing  for 
wind . 

Deflection  limits  for  wind  would  correspond  to  approxi¬ 
mate  building  tip  deflections  of  5  inches  and  interfloor 
deflections  of  0.25  inches  for  the  buildings  analyzed.  Al¬ 
lowable  drifts  due  to  static  earthquake  forces  would  then 
be  10  inches  tip  deflection  and  0.5  inches  of  interfloor 
displacement. 

Building  deflections  for  the  TR2.17  structure  computed 
by  Portland  Cement  Association  engineers  were  0.42  inches 
tip  deflection  under  static  earthquake  loading  and  0.10 
inches  tip  deflection  under  wind  loading. 

As  shown  in  the  figures  of  this  chapter,  none  of  the 
structures  analyzed  met  the  deflection  limits  mentioned 
above  under  the  1940  El  Centro  earthquake  except  within 
their  bottom  stories.  El  Centro  is  classified  as  a  catas¬ 
trophic  earthquake  and  has  a  Richter  value  of  7.7.  Under 
a  more  moderate  earthquake  however,  the  structures  analyzed 
would  meet  the  desired  deflection  limits.  This  is  revealed 
through  consideration  of  the  response  spectrum  of  a  Jenn- 
ing's  C40  earthquake  with  a  Richter  Magnitude  of  5.5  to 
6.0.  Under  this  earthquake  the  structures  analyzed  would  have 


displacements  and  accelerations  approximately  1/10  of  those 
caused  by  El  Centro.  The  performance  of  the  structures 
analyzed  thus  appears  to  be  within  the  bounds  of  Code  phil¬ 
osophy  stated  in  Section  1-2  of  this  dissertation. 

It  would  appear  to  the  author  that  if  deflections 
are  to  be  limited  under  a  catastrophic  earthquake,  a  sub¬ 
stantial  frame  must  act  in  conjunction  with  a  shear  wall  to 
limit  structural  deflections  in  upper  stories. 
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TABLE  5-1 

HORIZONTAL  FORCE  FACTOR  "K"  FOR  BUILDINGS 
OR  OTHER  STRUCTURES2 


Type  of  Arrangement  of  resisting  Elements 

Value  of 

l 

K 

All  building  framing  systems  except  as 
hereinafter  classified 

1.00 

Buildings  with  a  box  system  i.e.  a 
structural  system  without  a  complete 
vertical  load  carrying  space-frame.  In 
this  system  the  required  lateral  forces 
are  resisted  by  shear  walls. 

1.33 

Buildings  with  a  complete  horizontal 
bracing  system  capable  of  resisting  all 
lateral  forces,  which  system  includes  a 
moment-resisting,  space-frame  which,  when 
assumed  to  act  independently  is  capable 
of  resisting  a  maximum  of  25%  of  the  total 
required  lateral  force. 

0.80 

Buildings  with  a  moment-resisting  space- 
frame  which  when  assumed  to  act  independ¬ 
ently  of  any  other  more  rigid  elements  is 
capable  of  resisting  100%  of  the  total 
required  lateral  forces  in  the  frame  alone 

0.67 

i 

The  coefficients  determined  here  are  for 
use  in  the  State  of  California  and  in 
other  seismic  areas  of  similar  earthquake 
activity. 

2Where  wind  load  would  provide  higher 
stresses,  this  load  shall  be  used  in 
lieu  of  the  loads  resulting  from 
earthquake  forces. 

TABLE  5-2 


PROPERTIES  OF  SHEAR  WALLS 


SHAPE 

M,  i 

bal 

Kip-f t . 

Pbal 

Kips 

Rectangular  24"  x  360" 

130000. 

16210. 

Rectangular  20"  x  360" 

112110. 

13000. 

Rectangular  16"  x  360" 

88920. 

10500. 

I  -  shaped  12"  x  288"  * 

124630. 

13000. 

I  -  shaped  10"  x  288" 

104610. 

11000. 

I  -  shaped  8"  x  288" 

85330. 

8500. 

12"  refers  to  thickness  of  flanges  and  web  of 
I-shaped  cross  section  drawn  below. 


TABLE  5-3 


PROPERTIES  OF  FRAME  TR2.17 


Story 

Weight 
per 
f  loor 
(Kip) 

Axial 

Load 

(Kip) 

Cross 

Section 

Moment 

of 

Inertia 

(in4) 

M 

Yield 

( in-Kip) 

Shear 

Deforma¬ 

tions 

20 

219 

219 

16  x  360 

62208000 

204190 

No 

19 

219 

438 

16  x  360 

62208000 

236530 

No 

18 

219 

657 

16  x  360 

62208000 

267750 

No 

17 

219 

876 

16  x  360 

62208000 

277620 

No 

16 

219 

1095 

16  x  360 

62208000 

306550 

No 

15 

219 

1314 

16  x  360 

62208000 

334050 

No 

14 

219 

1533 

16  x  360 

62208000 

362120 

No 

13 

219 

1752 

16  x  360 

62208000 

385190 

No 

12 

232 

1984 

20  x  360 

77760000 

469370 

No 

11 

232 

2216 

20  x  360 

77760000 

496530 

No 

10 

232 

2448 

20  x  360 

77760000 

522420 

No 

9 

232 

2680 

20  x  360 

77760000 

551290 

No 

8 

232 

2912 

20  x  360 

77760000 

571950 

No 

7 

232 

3144 

20  x  360 

77760000 

599460 

No 

6 

245 

3389 

24  x  360 

93312000 

672840 

No 

5 

245 

3634 

24  x  360 

93312000 

694480 

No 

4 

245 

3879 

24  x  360 

93312000 

715490 

No 

3 

245 

4124 

24  x  360 

93312000 

746280 

No 

2 

245 

4369 

24  x  360 

93312000 

766240 

No 

1 

245 

4614 

24  x  360 

93312000 

787570 

No 

TABLE  5-4 


PROPERTIES  OF  FRAME  TR1.33 


Stor^ 

We i gh  t 
per 
floor 
(Kip) 

Axial 

Load 

(Kip) 

Cross 

Section 

Moment 

of 

Inertia 

(in*) 

M 

Yield  I 

( in-Kip) 

Shear 

eforma- 

tions 

20 

356.9 

356.9 

16  x  360 

62208000 

204190 

No 

19 

356.9 

713.8 

16  x  360 

62208000 

236530 

No 

18 

356.9 

1070.7 

16  x  360 

62208000 

267750 

No 

17 

356.9 

1427 .6 

16  x  360 

62208000 

277620 

No 

16 

356.9 

1784.5 

16  x  360 

62208000 

306550 

No 

15 

356.9 

2141.4 

16  x  360 

62208000 

334050 

No 

14 

356.9 

2498.3 

16  x  360 

62208000 

362120 

No 

13 

356.9 

2855  .2 

16  x  360 

62208000 

385180 

No 

12 

378.1 

3233 .3 

20  x  360 

77760000 

469370 

No 

11 

378.1 

3611.4 

20  x  360 

77760000 

496540 

No 

10 

378.1 

3989.5 

20  x  360 

77760000 

522420 

No 

9 

378.1 

4367 .6 

20  x  360 

77760000 

544650 

No 

8 

378.1 

4745.7 

20  x  360 

77760000 

471950 

No 

7 

378.1 

5123.8 

20  x  360 

77760000 

582290 

No 

6 

399.4 

5523  .2 

24  x  360 

93312000 

644730 

No 

5 

399.4 

9922 .6 

24  x  360 

93312000 

634480 

No 

4 

399.4 

6322  .4 

24  x  360 

93312000 

715500 

No 

3 

399.4 

6721.4 

24  x  360 

93312000 

737370 

No 

2 

399.4 

7120.8 

24  x  360 

93312000 

757570 

No 

1 

399.4 

7520 .2 

24  x  360 

93312000 

778210 

No 

■ 

TABLE  5-5 


PROPERTIES  OF  FRAME  TR0.67 


Story 

Weight 

per 

floor 

(Kip) 

Axial 

Load 

(Kip) 

Cross 

Section 

Moment 

of 

Inertia 

(in4) 

M 

Yield  D 

( in-Kip) 

Shear 

eforma- 

tions 

20 

713 .9 

713 .9 

16  x  360 

62208000 

204190 

No 

19 

713.9 

1427 .8 

16  x  360 

62208000 

236830 

No 

18 

713.9 

2141.7 

16  x  360 

62208000 

267780 

No 

17 

713.9 

2855.6 

16  x  360 

62208000 

277620 

No 

16 

713.9 

3569.5 

16  x  360 

62208000 

306540 

No 

15 

713.9 

4283.4 

16  x  360 

62208000 

334040 

No 

14 

713.9 

7997.3 

16  x  360 

62208000 

357570 

No 

13 

713.9 

5711.2 

16  x  360 

62208000 

385140 

No 

12 

756.3 

6467.5 

20  x  360 

77760000 

463500 

No 

11 

756.3 

7223.8 

20  x  360 

77760000 

490410 

No 

10 

756.3 

7980.1 

20  x  360 

77760000 

516030 

No 

9 

756.3 

8736.4 

20  x  360 

77760000 

544650 

No 

8 

7  56.3 

9492 .7 

20  x  360 

77760000 

565040 

No 

7 

756.3 

10249.0 

20  x  360 

77760000 

585160 

No 

6 

798.7 

11048.0 

24  x  360 

93312000 

656580 

No 

5 

798.7 

11846.0 

24  x  360 

93312000 

676770 

No 

4 

7  98.7 

12645.0 

24  x  360 

93312000 

698260 

No 

3 

798.7 

13444.0 

24  x  360 

93312000 

718590 

No 

2 

798.7 

14242 .0 

24  x  360 

93312000 

730170 

No 

1 

798.7 

15041.0 

24  x  360 

93312000 

740600 

No 

TABLE  5-6 


PROPERTIES  OF  FRAME  PRO. 67 


Stor^ 

Weight 
per 
f  loor 
(Kip) 

Axial 

Load 

(Kip) 

Cross 

Section 

Moment 

of 

Inertia 

(in4) 

M 

Yield  D 

(in-Kip) 

Shear 

eforma- 

tions 

20 

713.9 

713.9 

24  x  360 

93312000 

299820 

No 

19 

713.9 

1427.8 

24  x  360 

93312000 

332510 

No 

18 

713.9 

2141.7 

24  x  360 

93312000 

363620 

No 

17 

713 .9 

2855.6 

24  x  360 

93312000 

396430 

No 

16 

713 .9 

3569.5 

24  x  360 

93312000 

424610 

No 

15 

713 .9 

4283 .4 

24  x  360 

93312000 

424750 

No 

14 

713 .9 

4997.3 

24  x  360 

93312000 

453450 

No 

13 

713 .9 

5711.2 

24  x  360 

93312000 

479120 

No 

12 

756.3 

6467.5 

24  x  360 

93312000 

504130 

No 

11 

756.3 

7223.8 

24  x  360 

93312000 

538310 

No 

10 

756.3 

7980.1 

24  x  360 

93312000 

564140 

No 

9 

756.3 

8736.4 

24  x  360 

93312000 

586760 

No 

8 

756.3 

9492 .7 

24  x  360 

93312000 

613180 

No 

7 

756.3 

10248.9 

24  x  360 

93312000 

635190 

No 

6 

798.4 

11048.0 

24  x  360 

93312000 

656580 

No 

5 

798.7 

11846.0 

24  x  360 

93312000 

677670 

No 

4 

798.7 

12645.0 

24  x  360 

93312000 

698260 

No 

3 

798.7 

13440.0 

24  x  360 

93312000 

719590 

No 

2 

798.7 

14242 .0 

24  x  360 

93312000 

730170 

No 

1 

798.7 

15041.0 

24  x  360 

93312000 

740600 

No 

TABLE  5-7 


PROPERTIES  OF  FRAME  TI0.67 


Story 

Weight 

per 

floor 

(Kip) 

Axial 

Load 

(Kip) 

Cross 

Section 

Moment 

of 

Inertia 

(in4) 

M 

Yield  ] 

( in-Kip) 

Shear 

Deforma¬ 

tions 

20 

639.9 

639.9 

8  x  288 

63592448 

126610 

No 

19 

639.9 

1279.8 

8  x  288 

63592448 

157240 

No 

18 

639.9 

1919.7 

8  x  288 

63592448 

186290 

No 

17 

639.9 

2559.6 

8  x  288 

63592448 

216080 

No 

16 

639.9 

3185.5 

8  x  288 

63592448 

244290 

No 

15 

639.9 

3838.4 

8  x  288 

63592448 

266750 

No 

14 

639.9 

4479.3 

8  x  288 

63592448 

295850 

No 

13 

639.9 

4119.2 

8  x  288 

63592448 

322290 

No 

12 

677.9 

5797.1 

10  x  288 

78642400 

361040 

Yes 

11 

677.9 

6475.0 

10  x  288 

78642400 

386940 

Yes 

10 

677 .9 

7152 .9 

10  x  288 

78642400 

408540 

Yes 

9 

677 .9 

7830.8 

10  x  288 

78642400 

432300 

Yes 

8 

677 .9 

8508.7 

10  x  288 

78642400 

446190 

Yes 

7 

677 .9 

9186.6 

10  x  288 

78642400 

480390 

Yes 

6 

715.0 

9901.6 

12  x  288 

93360384 

533070 

Yes 

5 

715.0 

10617 .0 

12  x  288 

93360384 

556880 

Yes 

4 

715.0 

11332 .0 

12  x  288 

93360384 

575850 

Yes 

3 

715.0 

12047 .0 

12  x  288 

93360384 

594400 

Yes 

2 

715.0 

12762 .0 

12  x  288 

93360384 

607440 

Yes 

1 

715.0 

13477 .0 

12  x  288 

93360384 

626480 

Yes 
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TABLE  5-8  PROPERTIES  OF  FRAME  PI0.67(12) 


Story 

Weight 

per 

floor 

(Kip) 

Axial 

Load 

(Kip) 

Cross 

Section 

Moment 

of 

Inertia 

(in4) 

M 

Yield  De 

( in-Kip) 

Shear 
b  f  or ma— 
t  ions 

20 

639.9 

639.9 

12  x  288 

93360384 

173510 

No 

19 

639.9 

1279.8 

12  x  288 

93360384 

203360 

No 

18 

639.9 

1919.7 

12  x  288 

93360384 

234970 

No 

17 

639.9 

2559.6 

12  x  288 

93360384 

262230 

No 

16 

639.9 

3199.5 

12  x  288 

93360384 

291800 

No 

15 

639.9 

3835.4 

12  x  288 

93360384 

319560 

No 

14 

639.9 

4479.3 

12  x  288 

93360384 

349770 

No 

13 

639.9 

5119.2 

12  x  288 

93360384 

366890 

No 

12 

677 .9 

5797.1 

12  x  288 

93360384 

387700 

Yes 

11 

677.9 

6475.0 

12  x  288 

93360384 

412430 

Yes 

10 

677 .9 

7152 .9 

12  x  288 

93360384 

436580 

Yes 

9 

677 .9 

7830.8 

12  x  288 

93360384 

462120 

Yes 

8 

677 .9 

8508.7 

12  x  288 

93360384 

484420 

Yes 

7 

677.9 

9186.6 

12  x  288 

93360384 

510380 

Yes 

6 

715.0 

9901.6 

12  x  288 

93360384 

533070 

Yes 

5 

715.0 

10617.0 

12  x  288 

93360384 

556880 

Yes 

4 

715.0 

11332 .0 

12  x  288 

93360384 

575850 

Yes 

3 

715.0 

12047 .0 

12  x  288 

93360384 

594400 

Yes 

2 

715.0 

12762 .0 

12  x  288 

93360384 

607440 

Yes 

1 

715.0 

13477.0 

12  x  288 

93360384 

626480 

Yes 
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TABLE  5-9  PROPERTIES  OF  FRAME  PI0.67(6) 


Story 

Weight 
per 
f  loor 
(Kip) 

Axial 

Load 

(Kip) 

Cross 

Section 

Moment 

of 

Inertia 

(in*) 

M 

Yield  D 

(in-Kip) 

Shear 

sforma- 

tions 

20 

639.9 

639.9 

12  x  288 

93360384 

173510 

No 

19 

639.9 

1279.8 

12  x  288 

93360834 

203360 

No 

18 

639.9 

1919.7 

12  x  288 

93360834 

234970 

No 

17 

639.9 

2559.6 

12  x  288 

93360834 

262230 

No 

16 

639.9 

3199.5 

12  x  288 

93360834 

291800 

No 

15 

639.9 

3839.4 

12  x  288 

93360834 

319560 

No 

14 

639.9 

4479.3 

12  x  288 

93360834 

349770 

No 

13 

639.9 

5119.2 

12  x  288 

93360834 

366890 

No 

12 

677.9 

5797 .1 

12  x  288 

93360834 

396980 

No 

11 

677 .9 

6475.0 

12  x  288 

93360834 

427150 

No 

10 

677 .9 

7182 .9 

12  x  288 

93360834 

452750 

No 

9 

677 .9 

7830.8 

12  x  288 

93360834 

479410 

No 

8 

677.9 

8508.7 

12  x  288 

93360834 

508060 

No 

7 

677 .9 

9186.6 

12  x  288 

93360834 

529060 

No 

6 

715.0 

9901.6 

12  x  288 

93360834 

533070 

Yes 

5 

715.0 

10617 .0 

12  x  288 

93360834 

556880 

Yes 

4 

715.0 

11332 .0 

12  x  288 

93360834 

575850 

Yes 

3 

715.0 

12047 .0 

12  x  288 

93360834 

594440 

Yes 

2 

715.0 

12762 .0 

12  x  288 

93369834 

607440 

Yes 

1 

715.0 

13477 .0 

12  x  288 

93360834 

626480 

Yes 
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TABLE  5-10 

NATURAL  PERIODS  OF  FRAMES 


Fundamental 
or  1st  Mode 

2nd  Mode 

3rd  Mode 

Minimum 

TR2. 17 

2.508 

0.524 

0.196 

0.004 

TRl. 33 

3.221 

0.672 

0.251 

0.004 

TRO. 67 

4.605 

0.957 

0.358 

0.011 

PRO. 67 

4.591 

0.920 

0.328 

0.005 

TIO. 67 

5.351 

1.485 

0.540 

0.010 

PIO. 67 
(12) 

5.340 

1.433 

0.510 

0.017 

PIO. 67 
(6) 

5.302 

1.021 

0.372 

0.00  7 
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TABLE  5-11 

MODAL  ANALYSIS 


STRUCTURE 

MODAL 

ANALYSIS 

COMPUTER 

PROGRAM 

Maximum 

Moment 

(KIP-INCHES) 

Tip  Deflection 

(INCHES) 

Tip  Deflection 

(INCHES) 

TR2. 17 

904339.3 

16.46 

17.07 

TRl . 33 

882911.0 

20.96 

22.71 

TRO. 67 

955408.5 

19.47 

18.64 

PRO. 67 

959053.9 

19.47 

17.16 

TIO. 67 

607633.7 

19.04 

17.31 

PI0.67  (6) 

608128.0 

19.22 

15.47 

PI0.67 

(12) 

607663.4 

19.10 

16.48 

20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 
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TABLE  5-12 

MAXIMUM  RESPONSES  OF  FRAME 
TR2. 17 


Displacement 

to 

Ground 

(IN) 

17.07 

16.03 

15.01 

14.00 

13.01 

12.02 

11.04 

10.04 

9.04 

8.03 

7.02 

6.02 

5.03 

4.07 

3.17 

2.33 

1.58 

0.95 

0.45 

0.12 


Relative 

Displacement 

(IN) 

1.07 

1.07 

1.08 

1.08 

1.09 

1.09 

1.08 

1.07 

1.05 

1.03 

1.02 

1.00 

0.96 

0,91 

0.84 

0.75 

0.69 

0.59 

0.32 

0.12 


Time  of 
Occurence 

(SEC) 

4.773 

4.773 

4.772 

4.772 

4.772 

4.771 

4.770 

4.766 

4.754 

4.674 

4.654 

4.640 

4.629 

4.618 

4.608 

4.600 

4.591 

4.583 

4.573 

4.563 


■ 


20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 
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TABLE  5-13 

MAXIMUM  RESPONSES  OF  FRAME 
TRl. 33 


Displacement 

to 

Ground (IN) 
22.71 
21.45 
20.23 
19.01 
17.78 
16.54 

15.27 
13.96 
12.63 

11.27 
9.89 
8.52 
7.15 
5.82 
4.55 

3.36 
2.29 

1.37 
0.65 
0.17 


Relative 

Displacement 

(IN) 

1.45 

1.45 

1.45 

1.45 

1.45 

1.44 

1.42 

1.39 

1.38 

1.38 

1.39 

1.37 
1.34 
1.28 
1.19 
1.08 
0.92 
0.72 
0.47 
0.17 


Time  of 
Occurence 
(SEC) 

4.956 

4.956 

4.956 

4.955 

4.953 

4.946 

4.923 

5.016 

5.030 

5.212 

5.205 

5.199 

5.193 

5.185 

5.172 

5.163 

5.159 

5.157 

5.153 

5.149 


20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 
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TABLE  5-14 

MAXIMUM  RESPONSES  OF  FRAME 
TR0.67 


placement 

to 

.round 

(IN) 

Relative 

Displacement 

(IN) 

Time  of 
Occurence 

(SEC) 

18.64 

1.36 

4.377 

17.42 

1.36 

4.378 

16.29 

1.36 

4.377 

15.26 

1.36 

4.376 

14.33 

1.35 

4.372 

13.42 

1.33 

4.367 

12.50 

1.29 

4.357 

11.57 

1.24 

4.307 

10.60 

1.20 

4.261 

9.59 

1.16 

4.226 

8.55 

1.14 

4.172 

7.46 

1.12 

4.135 

6.36 

1.12 

4.044 

5.26 

1.10 

4.034 

4.16 

1.05 

4.025 

3.12 

0.97 

4.010 

2.16 

0.85 

3.984 

1.32 

0.68 

3.966 

0.63 

0.46 

3.961 

0.17 

0.17 

3.960 
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TABLE  5-15 

MAXIMUM  RESPONSES  OF  FRAME 
PRO. 67 


Displacement 

To 

Ground 

Relative 

Displacement 

Time  of 
Occurence 

(IN) 

(IN) 

(SEC) 

17.16 

1.19 

4.330 

16.14 

1.19 

4.331 

15.15 

1.19 

4.330 

14.20 

1.19 

4.330 

13.27 

1.19 

4.327 

12.36 

1.18 

4.320 

11.44 

1.15 

4.285 

10.52 

1.13 

4.252 

9.58 

1.11 

4.234 

8.64 

1.08 

4.217 

7.68 

1.05 

4.181 

6.69 

1.02 

4.147 

5.68 

1.02 

4.005 

4.67 

0.99 

3.998 

3.68 

0.95 

3.992 

2.75 

0.86 

3.981 

1.89 

0.75 

3.954 

1.15 

0.59 

3.934 

0.55 

0.40 

3.925 

0.15 

0.15 

3.919 
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TABLE  5-16 

MAXIMUM  RESPONSES  OF  FRAME 
TIO  .  67 


Displacement 

To 

Ground 

(IN) 

17.321 

16.26 

15.25 

14.44 

13.69 

12.92 

12.13 

11.28 

10.37 

9.19 

7.82 

6.76 

5.87 

5.03 

4.17 

3.29 

2.39 

1.53 

0.78 

0.22 


Relative 

Displacement 

(IN) 

1.13 

1.13 

1.13 

1.13 

1.12 

1.10 

1.08 

1.05 

1.19 

1.48 

1.58 

1.53 

1.36 

1.13 

1.01 

0.95 

0.88 

0.75 

0.55 

0.22 


Time  of 
Occurence 

(SEC) 

2.322 

2.323 
2.322 
2.321 
2.318 
2.313 
2.297 
2.276 
2.604 
2.582 
2.569 
2.557 
2.540 
2.500 
1.922 
2.392 
2.359 
2.333 
2.320 
2.308 
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TABLE  5-17 

MAXIMUM  RESPONSES  OF  FRAME 
PI 0 . 67  (12) 


Displacement 

To 

Ground 

(IN) 

16.48 

15.58 

14.74 

13.93 

13.15 

12.39 

11.62 

10.85 

10.05 

9.02 

7.87 

6.81 

5.89 

5.03 

4.15 

3.25 

2.36 

1.51 

0.77 

0.23 


Relative 

Displacement 

(IN) 

1.03 

1.04 

1.04 

1.03 

1.03 

1.02 

1.00 

0.99 

1.07 

1.33 

1.46 

1.46 

1.35 

1.16 

1.01 

0.95 

0.88 

0.75 

0.55 

0.23 


Time  of 
Occurence 

(SEC) 

2.306 

2.306 

2.305 

2.303 

2.300 

2.2-94 

2.286 

2.789 

2.603 

2.568 

2.555 

2.545 

2.534 

2.512 

1.913 

2.378 

2.352 

2.322 

2.299 

2.284 
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TABLE  5-18 

MAXIMUM  RESPONSES  OF  FRAME 
PIO. 67  (6) 


Displacement 

to 

Ground 

(IN) 

15.47 

14.62 
13.78 
12.97 
12.29 

11.63 
10.94 
10.23 

9.48 

8.68 

7.81 

6.88 

5.90 

4.89 

4.02 

3.12 

2.24 

1.40 

0.69 

0.19 


Relative 

Displacement 

(IN) 

1.00 

1.00 

1.00 

1.00 

1.00 

0.99 

0.98 

0.96 

0.94 

0.92 

0.94 

0.99 

1.04 

1.05 

1.05 

0.96 

0.84 

0.71 

0.49 

0.19 


Time  of 
Occurence 

(SEC) 

2.224 

2.223 

2.220 

2.214 

2.207 

2.198 

2.190 

4.436 

4.429 

4.422 

2.492 

2.480 

2.472 

2.466 

2.544 

2.438 

2.627 

2.617 

2.604 

2.588 
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Shear  Wal 1  Frame 
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FIG.  5-2  Response  Spectra  for  Elastic  Systems, 
1940  El  Centro  Earthquake 
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FIG.  5-3  MAXIMUM  DISPLACEMENTS 
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FIG.  5-4  MAXIMUM  DISPLACEMENTS 
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FIG.  5-7  MAXIMUM  COLUMN  ROTATIONS 
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FIG.  5-8  MAXIMUM  COLUMN  ROTATIONS 
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FIG.  5-9  MAXIMUM  SHEAR  WALL  ROTATIONS 
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FIG.  5-10  MAXIMUM  SHEAR  WALL  ROTATIONS 
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FIG.  5-11  MAXIMUM  DISPLACEMENTS 


128 


aaawriN  Aaois 


FIG.  5-12  MAXIMUM  DISPLACEMENTS 


129 


yggwnN  ahois 


0.30  0.60  0.90  1.20  1.50  1.80  2.10 

RELATIVE  DISPLACEMENT  (inches) 


130 


33awnN  AdOlS 


0.30  0.60  0.90  1.20  1.50  1.80  2.10 

RELATIVE  DISPLACEMENT  (inches) 


131 


a38wnN  Aaois 


FIG.  5-15  MAXIMUM  COLUMN  ROTATIONS 
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FIG.  5-16  MAXIMUM  COLUMN  ROTATIONS 


TR  0.67 
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FIG.  5-17  MAXIMUM  SHEAR  WALL  ROTATIONS 


PR  0.67 
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FIG.  5-18  MAXIMUM  SHEAR  WALL  ROTATIONS 


Chapter  6 


CONCLUSIONS  AND  RECOMMENDATIONS 


6-1  Conclusions 

The  following  conclusions  are  based  on  the  results 
of  the  analyses  performed  herein.  These  conclusions  apply 
only  to  the  shear  wall  buildings  of  this  investigation 
and  to  the  range  of  behavior  observed. 

1.  Shear  wall  buildings  of  the  type  considered  in  this 
thesis  perform  adequately  when  designed  using  a  horizontal 
force  factor  value  of  K  =  0.67. 

2.  Response  spectrum  analysis  should  be  used  as  a 

* 

first  check  on  forces  and  deflections.  If  the  structure 
remains  elastic,  the  values  of  the  response  quantities  pre 
dieted  by  spectrum  analysis  are  quite  accurate. 

3.  Tapered  buildings  perform  adequately.  The  response 
of  prismatic  buildings  is  only  minimally  better. 

4.  The  presence  of  shear  deformations  increases  struct 
ural  responses  to  earthquake. 

5.  Zones  of  great  stiffness  change  should  be  avoided 
if  possible  as  deformations  tend  to  concentrate  there. 

It  would  appear  that  the  good  behavior  of  shear 
wall  buildings  in  past  earthquakes  has  resulted  from  a 
combination  of  over  design  and  low  force  levels  associated 
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with  the  long  fundamental  periods  of  these  structures. 

6-2  Recommendations  for  Future  Research 

1.  The  ratio  of  moment  to  shear  upon  a  member  may 
change  as  an  earthquake  progresses  and  the  various  modes 
interact.  It  is  therefore  recommended  that  an  earthquake 
analysis  procedure  should  be  developed  wherein  the  moment 
and  shear  and  their  respective  deformations  are  kept 
separate.  In  this  manner  members  would  be  allowed  to  change 
shear  stiffness  when  their  shear  level  exceeds  their  crack¬ 
ing  shear  and  the  combination  of  shear  and  flexural  defor¬ 
mations  would  be  in  accord  with  the  member's  present  mom¬ 
ent  to  shear  ratio. 

2.  Research  should  be  performed  to  verify  and  predict 
the  shear-shear  deformation  relationship  of  a  member  under 
repeated  reversed  cyclic  loadings. 

3.  Response  spectrum  analysis  is  a  valuable  tool  in 
earthquake  engineering.  In  this  connection  more  work 
should  be  done  to  develop  average  response  spectra  to  be 
used  in  design.  Results  should  be  furnished  for  more 
values  of  critical  damping  and  for  larger  values  of  funda¬ 
mental  period. 
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APPENDIX  A 


MOMENT  -  AXIAL  LOAD  -  CURVATURE  PROGRAM 


A-l  Description  of  the  Program 

This  program  predicts  the  moment-axial  load  -  cur¬ 
vature  relationship  of  any  general  cross-section  symmetric 
about  its  vertical  axis.  The  theoretical  background  is 
described  in  Sec.  3-2. 

A- 2  Input  Data 

The  cross-section  is  discretized  into  elements  of 
desired  thickness  as  shown  in  Fig.  A-l.  The  points 
describing  the  extremities  of  each  element  are  called  nodes. 


First  Card:  NNODES ,  NSTEEL ,  NELEMS 


Input  format:  (315) 


NNODES: 


Number  of  nodes 


NSTEEL: 


Number  of  steel  areas  considered 


NELEMS : 


Number  of  elements 


Second  Card:  NODE,  X(NODE),  Y (NODE) 


Input  format:  (15, 2F  10.5) 


NODE: 


Node  number  as  in  Fig.  A-l 


X (NODE) : 


x  -  coordinate  of  node 


Y  (NODE)  : 


y  -  coordinate  of  node 
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This  card  is  repeated  until  all  nodes  are  described. 
Third  Card:  AS  (I)  ,  YS(I) 

Input  Format:  (2F  10.5) 

AS  (I):  Area  of  steel  (I) 

YS(i):  Y-coordinate  of  steel  (I) 


This  card  is  repeated  until  all  steel  areas  are 
described. 

Fourth  Card:  NELEM,  Nl,  N2,  N3,  N4 


Input  Format; (515) 

NELEM:  Number  of  element  as  shown  in  Fig.  A-l 

Nl:  Lower  left  hand  node 

N2:  Upper  left  hand  node 

N3:  Upper  right  hand  node 

N4:  Lower  right  hand  node 

This  card  is  repeated  until  all  elements  and  their 
respective  nodes  connected  are  described. 

Fifth  Card:  DEPTH ,  AXIALL,  FSUBC,  XNAREA,  PHIFAC 


Input  Format  ;(5F10.5) 

DEPTH:  Depth  of  cross-section 

AXIAL  LOAD:  Axial  load  on  cross-section 
FSUBC:  Concrete  strength  at  28  days 

XNAREA:  Cross-section  area 

_7 

Multiple  of  1.0  x  10  to  be  added  to  <J) 
at  each  step. 


PHIFAC: 


. 


Sixth  Card: 


YMOD,  EYIELD ,  ESH,  EULT ,  FYIELD, 


FULT,  YSH 

Input  Format:  (7F10.5) 
Steel  properties  of  Fig.  A-2 


YMOD: 

Young's  modulus 

(E)  of  steel 

EYIELD: 

Strain  at  yield 

of  steel 

ESH: 

Strain  at  start 

of  strain  hardening 

EULT: 

Strain  at  steel 

fracture 

FYIELD: 

Yield  stress  of 

steel 

FULT: 

Ultimate  stress 

of  steel 

YSH  : 

Strain  hardening  modulus 

3  Description  of  Subprograms  and  Flow  Charts 


(1)  Main  Program: 

Description:  Main  program  calls  sub¬ 

routine  XN  which  reads  and  calculates 
the  cross-section  properties.  Main 
program  then  reads  the  last  two  input 
cards  and  calls  subroutine  STRAIN. 

CALLS:  XN  and  STRAIN  subroutines. 


(2)  SUBROUTINE  XN : 

Description:  XN  reads  the  cross- 
sectional  properties  given  on  the 
first  four  data  card  series.  XN 
calculates  the  areas  and  centroids 
of  the  elements  and  returns  to 
Main. 


Called  by: 


Main 


(3)  SUBROUTINE  STRAIN: 

Description:  STRAIN  initiates  <j)  and  makes 

an  initial  guess  at  the  neutral  axis  position. 
Strains  for  each  element  and  steel  area  are 
calculated.  STRAIN  calls  subroutine  CFORCE 
to  calculate  the  force  in  each  concrete  area 
and  subroutine  SFORCE  to  calculate  the  force 
in  each  steel  area.  If  equilibrium  is 
reached  between  all  forces  on  the  cross- 
section  STRAIN  calls  XCALC.  If  equilibrium 
is  not  reached  the  neutral  axis  position  is 
adjusted  up  or  down  based  on  the  sign  of  the 
sum  of  all  forces  calculated  on  cross-section. 

Called  by:  MAIN 

Calls  :  CFORCE ,  SFORCE,  XCALC 


(4)  SUBROUTINE  CFORCE: 

Description:  CFORCE  takes  the  strain  for 

each  concrete  area  given  by  subroutine  STRAIN 
and  finds  the  corresponding  stress  from  a 
concrete  stress-strain  curve  such  as  that 
shown  :in  Fig.  A-2.  The  stress  in  each  element 
is  multiplied  by  the  element's  area  to  give 
the  element  force. 

Called  by:  STRAIN 


(5)  SUBROUTINE  SFORCE 

Description,  SFORCE  takes  the  strain  for  each 
steel  area  given  by  subroutine  STRAIN  and 
finds  the  corresponding  stress  from  a  steel 
stress-strain  curve  such  as  that  in  Fig.  A- 
2.  The  stress  in  each  steel  area  is  multi¬ 
plied  by  the  steel  area  to  give  the  steel 
force . 


Called  by:  STRAIN 


(6)  SUBROUTINE  XCALC 

Description:  XCALC  calculates  the  moment 

corresponding  to  each  equilibrium  position 
and  corresponding  <f)  value.  The  force  of 
each  element  and  steel  area  is  multiplied  by 
its  distance  to  the  centroid  of  the  cross- 
section.  The  products  are  summed  to  give 
the  moment  value. 


Called  by:  STRAIN 


FIG.  A-l  Flow  Chart  for  M-P-6  Program 
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FIG.  A- 2  DISCRETIZED  REINFORCED  CONCRETE  CROSS-SECTION 
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FIG.  A-3  STRESS-STRAIN  DIAGRAMS 
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c 

c 


MOMENT - AXIAL  LOAD — CURVATURE  RESPONSE  FOR  GENERAL  CROSS  SECTION 


UNITS  ARE  POUNDS  AND  INCHES 

DIMENSION  AS(20 )  , YS ( 20 ) . ARE A( 80 ) , YC< 80 ) 

CALL  XN( AS. YS , AREA , YC .NELEMS. NSTEEL ) 

WRI TE (6 , I  1 5 ) 

READ (5. 1  14) DEPTH, AX  I  ALL . FSUBC . XNARE A 
WRI TE ( 6, 1 16) DEPTH ,AXI  ALL . FSUBC , X NA RE A 
WR I TE ( 6 . 1 17) 

READ (5,  1 18)YM0D»EYI EL  D.ESH.EULT .FYIELD.FULT  »YSH 
WRI TE (6, 1 1 9) YMOD . EY I  ELD , ESH , EULT , FY I  ELD .FULT , YSH 

114  FORMAT(4F10 .5) 

115  FORMAT ( 5X  »  • DEPTH*  ,4X, • AX  I  ALL*  »5X, • FSUBC*  »4X,  'XNARE A*  ) 

116  FO  RM  AT (4F10.2) 

117  FORMAT (• VARIOUS  STEEL  PROPERTIES  STRAINS  AND  STRESSES*) 

1  1 8  FORM  AT (7F10.5) 

1 1 9  FORMAT (7E12.5) 

CALL  STRAIN (DEPTH. AX  I ALL . FSUBC, XNARE A , YMOD , E Y I ELD . E SH , E ULT , F Y I  ELD , 
♦FULT, AREA .NELEMS, NSTEEL . YC , YS . AS, YSH ) 

CALL  EXIT 

STOP 

END 

SUBROUTINE  XN(AS.YS. AREA, YC , NELEMS, NSTEEL ) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


♦ 

♦ 


♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 


♦  Y - COORDINATES 

* 


* 

♦ 


♦ 

*****$***$**♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦***♦♦♦***♦♦♦♦♦♦♦♦♦***♦♦*♦* 


♦ 

♦ 

♦ 


♦  CLOCKWISE  FROM  LEFT  HAND  BOTTOM  CORNER 


♦  NODE  NUMBERS  CONNECTED  MUST  BE  TAKEN 


♦  ♦*♦♦  NUMBER  OF  ELEMENTS  TO  BE  DIVISABLE  BY  3.  **** 


2  ♦♦♦♦♦♦=♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦  3 


♦  80  ELEMENTS  COMPRISING 


♦ 

♦  1  ELEMENT  OF  UP  TO 

♦ 


♦ 

♦ 

♦ 


♦  GENERAL  CROSS-SECTION 


♦ 

♦ 

♦ 

* 


* 

♦ 

♦ 

♦ 

♦ 


X - COORDINATES 


C 


DIMENSION  X ( 1 50 ) , Y (  l 50 )  ,  AS (20 ) . YS ( 20 ) , AREA(  80)  ,  YC(  80 ) 


- 
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c 

c 


c 

c 

c 


c 

c 

c 


READ  NUMBER  OF  NODES. STEEL  AREAS,  AND  ELEMENTS 

PE  AD{ 5  *  101 )NNODES»NSTEEL» NELEMS 
WRI TE( 6 , 100) 

WRITE! 6. 1 02 )NNODES,N STEEL, NELEMS 
WR I TE ( 6 , 103) 

READ  NODE  AND  ITS  X  AND  Y  COORDINATES 
DO  1  1=1 , NNODES 

READ! 5, 104) NODE , X! NODE) , Y! NODE) 

1  WRITE! 6, 1 05) NODE. X INODE) , Y ! NODE ) 

WRITE! 6. 106 ) 

READ  STEEL  AREA  AND  ITS  Y  COORDINATE 

DO  2  1=1 .NSTEEL 
READ! 5, 1 07 ) AS! I ) ,YS! I ) 

WRITE!6,108)AS!  I)  »YS< I) 

2  CONTINUE 

WRI TE! 6, 1 09) 

READ  NODES  CONNECTED 
DO  3  1=1, NELEMS 

READ! 5, 1 1 0 ) NELEM.Nl , N2, N3 ,N4 

WRITE!6,111  ) NEL  EM , N 1  ,N2,N3,N4 

AREA! NELEM)  =  ( Y! N2 )-Y! N1  )  ) * l X ! N4 ) — X  I N 1 ) ) 

YC! NELEM)=! Y! N1 )+Y!N2) )/2.0 
DO  4  J=l, NSTEEL 

IF ! ! YS! J) .LT. Y! N2 > ) . AND. ! YSl J ) . GT. Y! N1 ) ) )GO  TO  5 

4  CONTINUE 

3  CONTINUE 
WRITEI6. 113) 

DO  7  1=1, NELEMS 
7  WRITEI6.112)  I, AREA! I )  ,YC!  I) 

GO  TO  6 

5  AREA! NELEM)=AREA! NELEM)-AS! J) 

GO  TO  4 

6  CONTINUE 

100  FORMAT!/* NUMBER  OF  NODES  NO. OF  STEEL  AREAS  NO. OF  ELEMENTS*) 

101  F ORM  AT  <  3 1  5 ) 

102  FORMAT! 5X,  15 .2! 10X , 15 ) ) 

103  FORMAT! /6X, • NODE* , 5X ,* X  COORDI NATE • , 8X, • Y  COORDINATE*) 

104  FORMAT ! I  5, 2F1 0. 5) 

105  F0RMATI5X,  I5,5X,F12.4,8X,F12.4) 

106  FORMAT! /• STEEL  AREA*,5X,'Y  COORDINATE*) 

107  FORMAT! 2F10 .5) 

108  FORM  AT !F10.5,5X,F12.4) 

109  FORMAT !* ELEMENT  AND  NODES  CONNECTED*) 

1  1  0  FORM  AT ! 5  I  5 ) 

111  FORMAT ! 5  I 5 ) 

112  FORMAT ! 1  OX, I5,3X»F7 .3,7X»F12.4) 

113  FORMAT!/* ELEMENT  NUMBER  AREA  AND  Y  COORDINATE') 

RETURN 

END 

SUBROUTINE  ST R A I N ! DEPTH , A X I ALL . FSUBC , XN ARE A , YMOD , E Y I ELD , E SH . E ULT , F 
* YI ELD .FULT. AR  EA .NELEMS. NSTEEL . Y C . Y S, AS, YSH) 

REAL  MCALC 
REAL  NADEEP 


■ 
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DIMENSION  ALPH  A(20)  • X(  1 000) »Y(  1000) 

DIMENSION  YC(80)  ,  YS ( 2  0 ) »E  EL  EM (80)»EAS(20) »AREA(80)  »ASC20)  »FC  ( 80)  • 
*FS(20) 

PH 1=10 .0E-07 
L=0 

PH  I S=PHI *  4 • 0 

NADEEP=-(  (( AX  I ALL/X  N ARE  A)/(57000.0*SQRT( FSUBC >  )  )/PHI  ) 
IF(AXIALL.EQ.0.0)NADEEP=DEPTH/2. 

Cl S=0 • 25 
C3S=2  •  25 
XXX=0.0 
8  COUNT=0.0 
Cl =0  .25 
NCROSS=0 

I F< NADEEP. GE.0.0 )C1=0.00025 
IF ( NADEEP. GE .0 .0 )C1S=0. 00025 
IF ( NADEEP. GE.O .0 )C3S= .00225 
DI FF1 =0 • 0 
7  CONTINUE 

COUNT= COUNT  +  1  .0 

IF (COUNT .GT .5000. ) GO  TO  200 

201  GO  TO  2C2  * 

200  WRITE(6»  20  3 ) 

203  FORMAT ( ' MORE  THAN  5000  POSITIONS  TRIED  FOR  NEUTRAL  AXIS  DEPTH*//) 
XXX=i.O 
I=-2 

GO  TO  88 

202  CONTINUE 

DO  1  1=1 . NELEMS 

EEL EM (I ) = (NADEEP-YC ( I ) ) *PHI 
1  CONTINUE 

DO  3  1= 1 »  NSTE  EL 

3  EAS< I )= ( NADEEP-YS ( I ) ) *PHI 

CALL  CFORCE( NELEMS . EELEM, AREA. FSUBC. TOTALF.FC) 

CALL  SFORCE ( YMOD .YSH . EY I  ELD. ESH , EULT ,FY I ELO . NSTEEL . FULT , AS  * E AS .FS • 
♦SUMF) 

TOT  AL=TOT  ALF+SUMF 
DIFF=AXI ALL+TOT  AL 
IF(ABS(DIFF) .LT.IOO.OJGO  TO  4 
S I GN=— 1 .0 

IF(DIFF.LT .0.0) SI GN= 1.0 
IF(DIFF1*DIFF) 5.6,6 
6  DI F  F 1  =  D IFF 

NADEEP=NADEEP+( (Cl *D EPT H ) *S I GN ) 

GO  TO  7 

5  NC  ROSS  =  NCROSS— 1 

C1=C  1S*(  10  .**NCROSS) 

C3=C3S*( 1 0 . **NCROSS ) 

NADEEP=NADEEP+( ( C 3* D EPTH ) *S I GN ) 

D I FF1 =— D I FF 
GO  TO  7 

4  CONTINUE 

WR I TE( 6.131 ) 

I  =  — 2 

88  1=14-3 

I  1  =  1 
12=1+1 
13=1+2 

IF(  I  1  .GE. NELEMS )GO  TO  89 

9  0  WR I  TEC  6, l 40 ) I  1  ,  EELEM (  I  1  )  , FC(  I  1 ) , I  2. EELEM ( 12)  , FC ( 12), I  3. EELEM < I  3)  ,F 


. 


*C( 13  > 

140  F0RMAT!I4,F14.8,4X,F14.4,I4,F14.8,4X,F14.4,I4,F14.8.4X,F14.4) 

GO  TO  88 
89  CONTINUE 

WRI TEC  6, 21 0 )TOTALF 
WRITE!6,21 1 ) SUMF 

210  FORMAT ( • SUM  OF  CONCRETE  FORCES=  *,F15.4//) 

211  FORMAT ( • SUM  OF  STEEL  FORCES=  *,F15.4//) 

WRITE<6, 1321DIFF 

WRI TE( 6* 130 ) 

DO  1 1  I=l.NSTEEL 

WRI TEC  6,  1 40 )  I  • E AS (  I)tFS(I) 

IF! XXX.GT.O .1 )CALL  EXIT 
11  CONTINUE 

DO  77  1=1 .NELEMS 

IF( ABSC EELEMC  I )  )  .  GT . 0 . 003 9995) GO  TO  55 
77  CONTINUE 
GO  TO  69 
55  WRITEC6.122) 

122  FORMAT! • MAX IMUM  CONCRETE  STRAIN  EXCEEDED*) 

L=L/2 

DO  301  1=1  »~L 

J=  1*2 

X(  I  )=X( J) 

Y  {  I  )=YC J) 

WRI TEC  6,30  3)  I  ,X!  I  )  ,  Y( I ) 

301  CONTINUE 

READ! 5 .501  > ! ALPHACNX) ,NX=  1 , 20  ) 

CALL  CGPLC X . Y ,Y ,L,-1 29, 1 , 1 , 2. 0, 

*-9.9, -9. 9, 2 4. 0.-9. 9. -9. 9 , 20. 0 .ALPHA ,6 ) 

CALL  EXIT 
69  CONTINUE 
501  FORMATC20A4) 

303  FORMATCI5.2X.E15.5.2X.F15.2) 

DO  66  I  =  1 »  N STEEL 

IFCABSCEASC I ) ) .GT.EULTJGO  TO  67 

66  CONTINUE 
GO  TO  74 

67  CONTINUE 
WRITEC6 , 123) 

123  FORMAT!*  MAXIMUM  STEEL  STRAIN  EXCEEDED*) 

L=L/2 

DO  302  1=1, L 

J=I  *2 

XC I  )  =  X  C  J  ) 

YC I >=YC J) 

WRI TEC6.303) I ,X Cl  )  ,Y{ I  ) 

302  CONTINUE 

READ! 5, 50 1 ) ( ALPHA! NX ) ,NX=1 ,20 ) 

CALL  CGPLC X, Y ,Y,L,-1 29. 1 , 1 .2 . 0, 

*-9.9, -9. 9. 24.0  .-9 .9 . -9 . 9 , 2 0 . 0 , ALPH A , 6 ) 

CALL  EXIT 
74  CONTINUE 

130  FORMAT!/* STEEL  STRAINS*/) 

131  FORMAT!/' CONCRETE  STRAINS*/) 

132  FORMAT !F25. 1 0 ) 

DEP=DEPTH 

CALL  XCALC! FC.FS.NADEEP ,YC,YS. AX l ALL, NELEMS, NS TEEL, COUNT, PHI  »DEP»  A 
♦REA, AS , MCALC ) 

L=L+  1 


. 


- 
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X ( L ) =PH I 
Y(L)=MCALC 
WRI TE(6, 151 )L 

151  FORMAT (/• INCREMENT  NUMBER  =  »,I4/| 

PHI=PHI+PHIS 
GO  TO  8 
27  CONTINUE 
RETURN 
END 

SUBROUTINE  CF ORC E t NEL EMS , EELEM , AREA, FSUBC . T OTALF , FC ) 

DIMENSION  EELEM  C  80) , ARE A ( 80) , FC ( 80) 

TOT  ALF=0 .0 

FCPP=0 .85*FSUBC 

EC= 18 00 000.0* (5 00 .*FCPP) 

EO=t 2 • 04FCPP ) /EC 
FT=  7  .0*SQRT (FSUBC) 

EMAXT=C2.0*FT)/EC 

DO  1  1  =  1* NELE  MS 

IF(EELEM(I  )  .GT.O.O)GO  TO  2 

3  CONTINUE 

EELEM( I  ) =— EEL  EM ( I ) 

I F ( EEL  EMC  I)  .GT  »EO)GO  TO  5 

6  FC (  I  )=C2.0*C EELEM ( I  ) / EO )  )  —  ( ( EELEM ( I )/E0)**2) 

GO  TO  7 

5  SL0PE=-0. 15*FCPP/(0.0038-EO) 

FC ( I )=FCPP+( ( EELEM ( I )-EO) *SLOPE) 

GO  TO  15 

7  CONTINUE 

FC< I )=FC( I ) *FCPP 
15  CONTINUE 

FC ( I )=— FC< I ) 

EELEMC I )=— EELEM ( I ) 

GO  TO  4 

2  I FC  EELEMt  I )  .GT  .  EMAXT ) EELEMC I  )=0  .0 

FC  C I ) =  ( 2  •  0  * ( EELEMC  I  )  /E MA XT ) ) -t  C EEL EM C  I ) /EMAXT ) **3 ) 

FCC I ) =FCC I ) *FT 

4  CONTINUE 

T  OT  ALF=TOT  ALF  +  CFCC  I ) 4AREAC  I )  ) 

1  CONTINUE 
RETURN 
END 

SUBROUT  I NE  S  FO  RCE  CYMOD.YSH, EY I  ELD . ESH , EULT , F YI ELD . NSTEEL , F UL T , AS , 
* EAS, FS»  SUMF ) 

DIMENSION  ASC 20 )  .EASC 20 ) ,FSC20) 

SUMF=0.0 

DO  4  1=1 .NSTEEL 

IFCEASCI ) ) l ,2,3 

1  CONTINUE 

IF C EASC I ) . GE .-EY IELD ) GO  TO  5 

14  CONTINUE 

IFCEASC I ).LT .— ESH)GO  TO  6 

15  CONTINUE 
FSC  I  )=-FY IELD 
GO  TO  7 

5  FSC  I  )  =  EA SCI  )  4 YMOD 
GO  TO  7 

6  FSC  I  )  =  C CEASC I )+ESH 
GO  TO  7 

2  FSC  I  )=0.0 
GO  TO  7 


)*YSH)— FYI ELD 


' 


3  IF( EAS( I ) .LE.EY IELD)GO  TO  8 

16  CONTINUE 

IF(EAS( I ) • GT • ESH ) GO  TO  9 

17  CONTINUE 

FS  (  I ) =  FY I  EL O 
GO  TO  7 

8  CONTINUE 

FS( I  )=YMOD*EAS<  I  ) 

GO  TO  7 

9  FS(  I )=FY  IELO+( (EAS( I  )  — ESH  )*YSH) 

7  CONTINUE 

SUMF=SUMF+ (FS ( I)*AS(  I  )  ) 

4  CONTINUE 
RETURN 
END 

SUBROUTINE  XCALC ( FC , F S , NA DEEP , YC , YS . AX I  ALL . NELE MS . NSTEEL * C OUNT . 

♦  PHI  »  DEP • AREA. AS. MCALC ) 

REAL  MCALC 
REAL  NADEEP 

DIMENSION  AREA(80 )»AS(20) 

DIMENSION  FC(80).FS(20),YC(30),YS(20> 

MC ALC=0 . 0  ' 

4  DO  5  1=1. NELEMS 

5  MCALC=MCALC-(  ( ( Y C ( I  )-( DEP/2  .  >  )*FC( I  )  )  ♦AREAt  I  )  ) 

DO  6  1=1, NSTEEL 

6  MCALC=MCALC-( ( ( YS( I )- (DEP/2 ,))*FS(I))*AS(I)) 

7  CONTINUE 

WRI TE(6. 149) NADEEP 

149  FORM  AT (/• NEUTRAL  AXIS  POSITION  IS  • , F6 . 1 .  •  INCHES  FROM  THE  BOTTOM 
♦EDGE  OF  THE  CROSS-SECTION*/) 

WRI TE( 6, 120 ) 

WRITE(6,121)PHI  .MCALC. AX  I  ALL, COUNT 
1 2  0  FORMAT (6  X,  • PHI •  , 8X, • MCALC*  ,4X, • A XI  ALL*  . 5X ♦  •  COUNT*  ) 

121  FORMAT ( El  1 . 4, El  4.6, 2F1 0 . 1  ) 

MCALC= MCALC/ 1000 . 

WRI TE (7. 169)  MCALC , PH  I 
169  FORMAT (F15,2, El  1  ,4) 

RETURN 

END 


* 


APPENDIX  B 


DILGER  SHEAR-GAMMA  RELATIONSHIP 


B-l  Introduction 

This  program  has  been  developed  to  calculate  the 
shear-gamma  relationship  of  any  general  cross-section  as 
given  in  formulae  by  Dilger.  The  background  to  the  pro¬ 
gram  is  contained  in  Sec.  2-4. 


B-2  Input  Data 

First  Card:  BETA,  DEPTH,  FSUBC,  VCONC,  T 
Input  Format:  (8F10.5) 

BETA  =  Inclination  of  cracks  (degrees) 

DEPTH  =  j  x  effective  depth  (in) 

FSUBC  =  28  day  concrete  compressive  strength  (psi) 

VCONC  =  shear  carried  by  concrete  alone  (pounds) 

T  =  thickness  of  web  (in) 


Second  Card:  ALPHA,  SPACE,  AlSTlR,  FY,  FU,  EUST 

ESHST 

Input  Format:  (8F10.5) 

ALPHA  =  Inclination  of  stirrups  (degrees) 

SPACE  =  Spacing  of  stirrups  (in) 

Al.STlR  =  Area  of  1  stirrup  (all  legs)  (sq.  in) 

FY  =  Yield  stress  of  steel  (psi) 

FU  =  Ultimate  stress  of  steel  (psi) 

EUST  =  Ultimate  strain  of  steel  (in/in) 
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; 
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ESHST  =  Steel  strain  hardening  steel  (^n^in) 

B-3  Description  of  Program 

The  program  begins  with  an  initial  value  of  concrete 
strain  and  finds  the  shear,  V,  applied  to  the  cross-section 
using  Hognestad's  concrete  stress-strain  curve  and  the 
concrete  area  value  given  by  Dilger  formula. 

The  value  of  V  is  then  substituted  into  the  Dilger 
formula  for  gamma.  Steel  strain  corresponding  to  this 
applied  shear  is  checked  and  if  neither  concrete  or  steel 
exceed  their  maximum  strain,  the  initial  concrete  strain 
is  increased  and  the  procedure  repeated. 


158 


FIG.  B-l  Flow  Chart  for  V-y  Program 


n  n 
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PROGRAM  TO  CALCULATE  RESPONSE  OF  W.  DILGER'S  SHEAP  DEFORMATION  MODEL 

D I  MENS  ION  VV ( 200)  »  S I GMAE ( 200) tGAMMA(  200) , VADD (  200 ) »  GD ILG (200)  , GSI  G 
4M(200) . VSIGMI200 ) 

DI ME NS  I ON  S I GMEEI 200  )  .STRAIN! 200 ) , ECGNCI 200 ) 

DIMENSION  STST  (200)  •»STCONC(200) 

DIMENSION  AL  PH ( 20 ) 

C 

C  READ  CONCRETE  PROPERTIES 

C 

C  BETA=  INCLINATION  OF  CRACKS  (DEGREES) 

C  DEPTH=  J4EFFECT IVE  DEPTH  (IN) 

C  FSUBC=  28  DAY  CONCRETE  COMPRESSIVE  STRENGTH  (PSI) 

C  VCONC=  SHEAR  CARRIED  BY  CONCRETE  ALONE  (POUNDS) 

C  T=  THICKNESS  OF  WEB  (IN) 

C 

READ( 5. 1 00) BETA ♦ DEPTH ,F  SUBC, VCONC .T 
C 

C  READ  STEEL  PROPERTIES 

C 

C  AL  PHA=  INCLINATION  OF  STIRRUPS  (DEGREES) 

C  SPACE=  SPACING  OF  STIRRUPS  (IN) 

C  A 1  ST I R=  AREA  OF  1  STIRRUP  (ALL  LEGS)  (SO.  IN) 

C  FY=  YIELD  STRESS  OF  STEEL  (PSI) 

C  FU=  ULTIMATE  STRESS  OF  STEEL  (PSI) 

C  E  UST  =  ULTIMATE  STRAIN  OF  STEEL  (IN/IN) 

C  ESHST=  STEEL  STRAIN  HARDENING  STRAIN  (IN/IN) 

C 

READ( 5. 1 00) ALPHA, SPACE, A1 STI R,FY, FU, EUST, ESHST 
C 

C  FIND  STEEL  AND  CONCRETE  STRAINS 

C 

ALPHA=ALPHA*3 .14159/ 1 80 . 

BETA=BETA*3. 1 41  59/1  80. 

AR  EAC=T*DEPTH*( COTAN (  ALPHA) +COTAN(BETA)  )*SIN (BETA ) 

AREAS=A1 ST IR*DEPTH*( COT  AN ( ALPHA ) +COT AN ( BETA )) /SPACE 
C 

C  DEFINE  CONCRETE  STRAIN  AND  FIND  STRESS  FROM  HOGNESTAD  STRESS-STRAIN 

C  RELATIONSHIP 

C 

FCPP=0.85*FSUBC 

EC=1 8  00  0  00 . 0  +  ( 5  00  .4FCPP  ) 

EO=(2.*FCPP)/EC 
EU=0 .0038 
E=0. 00001 
1=1 

5  I F ( E • GT . EO ) GO  TO  1 

FC=FCPP*( (2. 04 ( E/EO ) ) — ( ( E/EO ) 4*2 ) ) 

GO  TO  3 

1  IF(  E  .GT  .  EU  )  GO  TO  2 
SLOPE= ( — 0 . 1 54FCPP )/ (EU-EO) 

FC=FCPP+( (E-EO)*SLOPE) 

GO  TO  3 

2  WRITE(6»900) 

GO  TO  9 

3  V=FC*AREAC 
C 


' 


o  o  o  no 
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FIND  STEEL  STRESS  AND  STRAIN 

FSTEEL=V/AREAS 
IF IFSTEEL. GT.FY )GO  TO  6 
ES V=FSTEEL/ 29  000  000 • 0 
GO  TO  7 

6  IF(FSTEEL.GT.FU)GO  TO  8 
ESH=I FU-FY  )/t EUST-ESHST) 

ESV=ESHST+I  FSTEEL— FY  )/ESH 
GO  TO  7 

8  WRI TE( 6  *901 ) 

GO  TO  9 

7  CONTINUE 

GAMMA  FOUND  USING  STRESS  STRAIN  CURVES 

SI  G MAE (I  )  =  ( ESV/(S IN( ALPHA  )**2))+lE/ISINIBETA)**2)) 

ECONC(I)=E 
STRAIN! I  )=  ESV 
C 

C  FIND  DILGER  GAMMA 

C 

P  V=  A 1  ST  I  R/ISPACE*T*S  INI  ALPHA)  ) 

GAMMA! I )=V/ IT*DEPTH* ( (COTANI ALPHA) +COTANI BETA) )**2)>*Il./(PV* 
*29000000. 0*ISINI ALP HA)* *4) )+l./IEC*lSlNlBETA)**4) )) 

VVII)=V 
E=E+0. 00001 

1=1+1 

GO  TO  5 

C 

C  FIND  ELASTIC  GAMMA 

C 

9  EG A  MMA=  VCONC/ ( ( EC/2 .36 ) *DEPTH*T) 

11=1+1 

DO  10  J  =  3  »  I  I 

VADDI J )=VV( J-2 ) +VCONC 

GDI LG( J ) =GAMMAI J-2 ) +EGAMMA 

10  GSIGMI J) =S I GM  AE I J— 2 )+EGAMMA 
VADD ( 2 ) = VCONC 
GDILG(2)=EGAMMA 

GSI GM( 2 )=EGAMMA 
VADDI 1 )=0 .0 
GD I LG ( 1  )  =  0  •  0 
GSIGMI 1 )=0.0 
DO  1 1  J J  =2 ♦ I 
VSIGMI J J) =VV I J J— 1 ) 

STCONCt  JJ )  =  ECONC I J J— 1  ) 

STSTI JJ )=STRAINI JJ-1 ) 

11  SIGMEEI JJ)=SIGMAEt JJ-l) 

VSIGMI 1 )=0.0 

VSIGMI 1+1 )=0.0 
SIGMEEI 1 )=0.0 
SIGMEEI I +1 )=0 .0 
STSTI 1 )=0.0 
STSTI 1+1 )=0.0 
STCONC I  1 ) =0 .0 
STCONCI 1+1 ) =0 . 0 
WRITEI6.902) 

DO  12  K= 1 » I  I 

12  WRI TE(6»9C3)VSIGM{ K)  .SIGMEEI K)  . V  ADD (K)  .GDILGIK) . GSIGMIK ) 


. 
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*  .STCONC(K) • ST  ST ( K ) 

100  FORMAT ( 8F1 0. 5) 

900  FORMAT!/* MAXIMUM  CONCRETE  STRAIN  EXCEEDED*/) 

901  FORMAT (/* MAX IMUM  STEEL  STRESS  EXCEEDED*/) 

902  FORMAT!/* SHEARS  AND  GAMMAS*/) 

903  FORMAT !7 (2X»F16»5) ) 

501  FORM  AT (20  A4 ) 

STOP 

END 


, 


APPENDIX  C 


DERIVATION  OF  MODIFIED  SLOPE  DEFLECTION  EQUATIONS 


The  standard  slope  deflection  equations  have  been 
modified  in  order  to  accommodate  the  special  end  conditions 
incurred  during  the  modeling  process  of  a  frame  for  the 
dynamic  analysis,  as  discussed  in  Chapter  4.  In  the  model, 
a  member  end  is  restrained  by  a  rotational  spring.  The 
member  end  may  also  consist  of  a  rigid  stub,  as  shown  in 
Fig.  4-6.  The  final  formats  of  such  equations  are  shown 
in  Eqs .  4-5  and  4-6.  The  derivation  of  these  equations 
is  shown  in  this  appendix. 

The  sway  rotation, p,  between  points  a  and  b  in  Fig. 
4-6  is  temporarily  assumed  to  be  zero.  If  the  joint  rota¬ 
tions  at  points  a  and  b  are  0^  and  0^,  respectively,  the 
end  rotations  of  the  member  cd  at  points  c  and  d  are 


0 


a 


Mcd~e 

ai 


i 


t 


and 


respectively  as  explained  in  Eqs.  4-3  and  4-4.  If  p  is 
zero,  the  sway  rotation  between  points  c  and  d,  pcd,  is 
given  by: 


A1L0a  +  A2L0b 
pcd  ~  A3L 


162 


are  expressed  by 


Therefore  the  end  moments,  M  ,  and  M,  , 

'  cd  dc ' 


M 


cd 


2EI  p,  _  Mcd  61.  Mdc  B2) 

a,l  {2(0a  >  +  (0b  it; — 


At  0  +  A0  0r_ 

3  .1  a  .  .2  b  _} 

Ao  cd 


(C-l) 


M 


dc 


2EI  Mcd  31  ^dc  ^2 

T§r  {(ea  -  ^r-^)+  2(eb  -  -^-2) 


,  X1  0a+  X2  % 

+  3 - XT - >  +  Cdc 


(C-2 ) 


where  C  ^  and  C^c  are  defined  in  Eqs .  4-7  and  4-8, 
respectively.  Solving  Eqs.  C-l  and  C-2  for  and 


M 


cd 


[2EX  {  (2  +  3h  +  6EI  + 

A^L  A^  a2^3L  o^A^i,  0a 


A?  6A9EI 
+  (1  +  3^  +  — - 


6  El  v  ^1  .  ^2 


A 


3  a2^3  ^ 


2- +^+a0A^L  ^  a,  +  a 


2  3 


+  (i  +  ±4V>  c 


a2^'3^j/  ^C<3  a2^3  T^d  c]/A7  (C-3) 


Mdc  =  [T3{  (1  +  3V  +  ^ 


A  i  6^1  A0 

)0  _  t  (2  +  3-^ 
3  «  )  4  t.  a 


2 


' 
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6EI 


a1X3L 


6A  El  /r-p  r 

+  - 97)  °K  ■+  —  +  (2  +  -6-1--)  — } 

alA32L  b  ^  alA3L  a2 


^cd  +  <1  +  a^><W/A7 


(C-4  ) 


where  Aj  is  defined  in  Eq.  4-22. 

The  end  moments,  an<3  M^a,  and  the  end  moments, 

M  ,  and  M  ,  are  related  as  follows, 
cd  dc' 

In  general,  shear  forces  at  the  member  ends  (see 
Fig.  C-l)  are  given,  ignoring  the  secondary  moments  produced 
by  axial  force, by: 

V1  ="  I(M1+M2)  +  IwL  (C-5) 


V2  =-  i(M1+M2)  -  |wL 


(C-6 ) 


Here  the  uniformly  distributed  load,  w,  is  assumed  to  be 

applied  throughout  the  member  length,  L.  Therefore  the 

shear  force  at  the  right  end  of  the  member  ac ,  V  ,  is 

ac 


V 

ac 


-V(M  ,  +  M  )  -  ^wA,L 

X-.L  ab  ca  2  1 


and  the  shear  force  at  the  left  end  of  the  member  cd,  Vc<^, 


is : 


V 


cd 


tV(M  ,  +  M ,  )  +  ^wX.L 
A„L  cd  dc'  2  3 


The  equilibrium  condition  at  this  point  requires  that  the 
above  two  shear  forces  are  the  same.  Thus, 

Mab  =  Mcd  +  "TT  (Mcd  +Mdc>  -  ^l'142»l2 


.  .  .  (07) 


’ 


In  the  above,  the  equilibrium  of  moments 


M  +  M  ,  =  0 

ca  cd 


(C-8) 


is  used.  A  similar  process  at  point  d  yields 


M.  =  M,  + 
Da  dc 


x: 

T 


(Mcd  +  Mdc>  +  5wX2(1_X1)l: 


_ (C-9 ) 

As  M  ^  and  M^c  are  calculated  in  Eqs.  C-3  and  C-4, 
the  end  moments  M  ^  and  M^a  are  obtained  using  Eqs.  C-7 
and  C-9.  Substituting  Eqs.  C-3  and  C-4  into  C-7,  M  ^  is 
obtained  as: 


M 


ab 


2pT  $  i  $  o 

Y^CA.e  +AO0,  +A.— +Ar— )  +  AcC  , 

A  la  2b  4a-,  5a9  6  cd 

— - - - - - - - +  aqd  , 

A_  8  ab 


_ (C-10) 


and  similarly,  as 


“b 


2FI  ^1  ®  2 

f^f(Aoe  +A'0  ,+Ai-^+A.'  — )  +  Arc 
A  L  2  a  lb  5a.^  4  a2  6  cd 


+  A0D  , 
8  ab 


_ (C-ll) 

where  A^  A[,  A2 ,  A4 ,  A\,  A5 ,  a^ ,  Ag,A^,  A? ,  AgD  and 
AgDba  are  as  defined  in  Sec. *4-4-1.  When  deriving 


these  equations,  the  relationship. 


Ccd  Cdc 


(012) 


was  used. 
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If  the  sway  rotation, p  ,  is  present,  the  end  moments, 
Mab  and  ^a'  wil1  be  expressed  in  the  forms  shown  in  Eqs . 

4-5  and  4-6.  The  end  moments  observed  when  the  joint  rota¬ 
tions  at  both  ends  of  the  member  are  zero  and  only  the  sway 
rotation,  p,  exists  are  the  same  as  the  moments  observed 
when  the  joint  rotations  at  both  ends  are  equal  to  - p  and 
the  sway  rotation  is  zero.  Therefore  the  coefficients  of 
p,  and  A^,  in  Eqs.  4-5  and  4-6,  respectively,  are  given 
by: 


A3  -  -  (A^  +  A2 ) 


and 

A3  =  -(A*  +  A2) 

as  shown  in  Eqs.  4-14  and  4-15.  In  other  words,  Eqs.  4-5 
and  4-6  are  the  expressions  for  the  end  moments  under  an 
arbitrary  member  position  as  shown  in  Fig.  4-6. 

The  lower  ends  of  the  bottom  story  columns  are 
connected  to  the  foundation  through  elastic  rotational 
springs.  The  slope  deflection  equations  must  be  modified 
to  accommodate  this  situation.  The  derivation  of  modified 
slope  deflection  equations  for  this  case  is,  however , similar 
to  that  shown  above,  thus  the  explanation  has  been  omitted 


here. 
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FIG.  C-l  Equilibrium  of  Forces 


Appendix  D 

MAIN  COMPUTER  PROGRAM 


D-l  Description  of  the  Program 

This  program  has  been  developed  to  perform  an  in¬ 
elastic  dynamic  analysis  of  a  multistory,  multibay  frame 
subjected  to  either  a  blast  load  or  an  earthquake  motion. 
The  procedure  employed  in  the  program  complies  with  the 
statements  made  in  Chapter  4. 

The  M  -60  relationship  must  be  prepared  beforehand 
s  s 

for  each  member  end.  This  may  be  done  using  the  program 

listed  in  Appendix  E.  In  the  present  program,  the  input 

statement  is  made  by  assuming  that  the  initial  M  -66 

s  s 

relationships  are  the  same  at  both  ends  of  a  member.  The 
data  describing  the  external  disturbance  may  be  input 
through  a  deck  of  cards  or  through  a  file  stored  in  the 
computer  disk. 

The  results  of  the  entire  response  may  be  printed 
out  or  may  be  either  punched  out  or  stored  in  the  disk  so 
that  the  results  can  be  plotted  by  CalComp  Plotter  using 
a  program  written  especially  for  this  purpose. 

D-2  Input  Data 

Card  Group  1:  NS,  NB,  NCAL ,  MXIT,  NTOBU ,  NSAI ,  LTP , 
IGPH ,  TIMELT,  DELTAT,  GOSA.  The  input  format  is  (815, 10X, 
3F10.Q)-  The  numbering  convention  and  other  symbols  are  as 
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: 


defined  in  Chapter  4.  The  variables  used  here  are  as 
follows . 


NS 

NB 

NCAL 

MXIT 


NTOBU 


NSAI 


LTP 


IGPH 


Number  of  stories  (N  ) , 

s 

Number  of  bays  (N^) , 

Number  of  integration  steps. 

Maximum  number  of  iterations  allowed  for 
each  step  of  integration  procedure. 

(20  <  MXIT  <  50)  , 

Results  are  printed  out  for  every  NTOBU-step 
of  integration. 

Number  of  subdivisions.  If  there  is  any 
change  in  the  value  of  ^  or  $2 

the  modified  slope  deflection  equation  or 
if  convergence  was  not  obtained,  integration 
is  done  for  smaller  time  increments  as 
specified  by  this.  (2  <  NSAI  <_  5) 

Type  of  external  disturbance. 

LTP  <4  ...  Earthquake 

LTP  >5  ...  Blast  Load 

Indicates  the  type  of  output. 

IGPH  >6  ...  Results  are  printed  out; 

however  they  are  neither  punched  out  nor 
stored  in  the  disk. 

IGPH  =  1  ...  Results  are  punched  out. 

IGPH  =  2  ...  Results  are  stored  in  the  disk. 


Two  files  must  be  created  in  the  disk,  and 
the  output  code  numbers  must  be  assigned  in 
the  following  manner. 

2  =  file  name  1 

3  =  file  name  2 

In  the  file  name  1,  entire  behavior  is 
stored;  and  in  file  name  2,  the  maximum 
values  are  stored. 

TIMELT  :  This  value  must  be  equal  to  the  prepared 
total  computation  time  minus  0.3  or  0.4 
minutes.  If  the  total  computation  time 
assigned  for  this  job  is  not  enough  to  per¬ 
form  all  the  response  calculation,  the 
response  calculation  is  cut  off  after  TIMELT 
(min)  is  spent,  and  the  maximum  values  so 
far  obtained  are  printed  out  and  the  results 
stored  in  the  disk  are  saved  in  the  tape. 
DELTAT  :  Incremental  time  step  in  the  integration  step 
(At)  , 

GOSA  :  Convergence  limit.  It  is  usually  adequate 
to  specify  this  value  between  0.001  and 
0.0001. 

Card  Group  2:  EM,  GR,  SEICO,  IDISC,  THAJI ,  TOWA. 
FORMAT  (3F10.0,  15,  25X,  2F10.0). 


EM 


Modulus  of  elasticity  (E) 


■ 
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GR  :  Acceleration  of  gravity  (g) 

SEICO  :  Input  data  of  external  disturbance  is  multi¬ 

plied  by  this  value.  If  the  input  data  for 
an  earthquake  is  prepared  so  that  the  maximum 
value  of  acceleration  is  equal  to  the  acceler¬ 
ation  of  gravity,  SEICO  corresponds  to  the 
seismic  design  coefficient  in  a  static  analy¬ 
sis.  If  the  input  data  for  a  blast  load  is 
prepared  so  that  the  maximum  value  is  1.0, 
SEICO  shows  the  maximum  load  at  the  standard 
floor. 

IDISC  :  Indicates  if  the  data  describing  the  exter¬ 

nal  disturbance  are  input  through  a  deck  of 
cards  (IDISC  ^  0)  or  through  a  file  stored 
in  the  disk  (IDISC  =  0) .  If  the  data  are 
given  through  the  disk,  the  file  must  be 
called  by  the  input  code  number  4. 

THAJI  and  TOWA  :  The  results  for  every  story  are 

printed  out  regardless  of  the  indication  of 
IP(i)  (See  Card  Group  4)  for  the  time  period 
from  THAJI  (sec)  to  TOWA  (sec) . 

If  these  places  are  left  blank,  the  function 
is  ignored. 

Card  Group  3:  SB(j),  for  j  =  1  to  Nfc.  FORMAT 


((8F10.0)  )  . 
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SB ( j)  : 

Length  of  the  j-th  bay  (from  column 

center  to  column  center) 

Card  Group 

4:  For  i  =  1  to  N  ;  SM(i),  H  (i) ,  SH(i), 

IP (i) .  FORMAT 

(3F10.0,  15). 

SM  ( i)  : 

Weight  concentrated  at  the  i-th  floor 

H  ( i)  : 

(mi  x  g) 

Damping  factor  (h^) 

SH(i)  : 

Story  height  of  the  i-th  story 

IP  (i)  : 

Indicates  if  the  print  out  of  the  result 

for  the  i-th  floor  is  required  (IP(i)  > 

0)  or  not  (IP(i)  <  -1). 

Card  Group 

5:  For  i  =  1  to  N  ;  RP(i,j),  for  j  =  1 

s 

to  Nb  +  1.  FORMAT  ((8F10.0)). 


RP  (i,j) 

:  Length  of  the  rigid  stub  at  the 

right  end  of  the  beam  at  the  i-th 

,  floor  and  the  j-1  th  bay  which  is 

assumed  to  be  equal  to  the  length  of 

rigid  stub  at  the  left  end  of  the 

beam  at  the  i-th  floor  and  the  j-th 

bay. 

Card  Group 

6:  For  i  =  1  to  N  ;BMI(i,j),  for  j  =  1 

s 

to  N,  .  FORMAT 
b 

(  (8F10.0) )  . 

BMI ( i / j  ) 

Card  Group 

:  Moment  of  inertia  of  the  beam  at 

the  i-th  floor  and  the  j-th  bay. 

7:  For  i  =  1  to  N  ;  CMI(i,j),  for  j  =  1 

o 

Card  Group  7 : 
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to  Nb  +  1.  FORMAT  ((8F10.0)). 

CMI(i,j)  :  Moment  of  inertia  of  the  column  at  the 

i-th  story  and  the  j-th  row. 

Card  Group  8:  SPR(j),  for  j  =  1  to  +  1. 
FORMAT  ((8F10.0)). 

SPR(j)  :  Spring  constant  of  the  foundation  at 

the  bottom  of  the  j-th  column.  (For 
fixed  end  -*  1.0  x  10"^). 

Card  Group  9:  For  i  =  1  to  N  ?  UDL(i,j),  for 

s 

j  =  1  to  Nb<  FORMAT  ((8F10.0)). 

UDL(i,j)  :  Uniformly  distributed  load  applied  to 

the  beam  at  the  i-th  floor  and  the 
j-th  bay. 

Card  Group  10:  Part  a;  IKUTSU,  NES (k) ,  for  K 
=  1  to  IKUTSU.  FORMAT  ((1615)). 


6. 


Part  b;  TEMPO  (i)  ,  for  i  =  1  to 


FORMAT 
IKUTSU  : 


NES (k)  : 

TEMPO (i) : 


(6F10. 0) . 

Number  of  members  which  have  the  same 

M  -60  relationships, 
s  s 

Member  number  which  was  referred  above. 
Temporary  variable.  Used  to  show  the 
coordinates  of  points  A,  B  and  C  in  Fig. 


4-5,  i.e. 

(TEMPO (1)  ,  TEMPO (2))  ...  Point  A 
(TEMPO  (3),  TEMPO  (4))  ...  Point  B 
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(TEMPO (5),  TEMPO  (6))....  Point  C 
POINT  B  is  any  point  on  line  A-C. 

The  next  relationship  must  be  satisfied 
TEMPO ( 5) >  TEMPO (3)  >  TEMPO (1)  >  0. 

If  the  theoretical  value  of  TEMPO (1)  is 


zero,  a  value  like  1.0  x  10 
be  input  in  the  computer. 


-30 


should 


Part  a  and  part  b  are  repeated  until  the  Ms“50s  relation¬ 
ships  are  input  for  all  members. 

Card  Group  11  (Only  when  IGPH  =  1  or  2) :  MSKIP, 
INSA,  NPCH ,  IPCH(j),  for  j  =  1  to  NPCH.  FORMAT  1015). 

MSKIP  :  Results  are  either  punched  out  (if  IGPH 

=  1)  or  stored  in  the  disk  (if  IGPH  =  2) 
for  every  MSKIP-steps  of  integration. 

INSA  :  Indicates  if  the  print  out  of  results 

is  required  (INSA  >  5)  or  not  (INSA  <  4) 
together  with  punched  out  cards  or 
files  stored  in  the  disk. 

NPCH  :  Number  of  floors  for  which  results  are 

punched  out.  (NPCH  <  5)  . 

INPCH(j)  :  Floor  number  for  which  the  results  are 

punched  out. 

If  IGPH  =  2,  neither  NPCH  nor  IPCH(j)  need  to  be 
specified  as  the  results  of  every  floor  is  stored  in  the 


disk. 


- 
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Card  Group  12:  TSEI(i),  for  i  =  1  to  20.  FORMAT 

(20A4) . 

TSEI(i)  :  Identification  of  external  disturbance. 
Card  Group  13:  GA(j),  for  j  =  1  to  NCAL .  FORMAT 
( (7F10.0) ) . 

GA(j)  :  Data  of  external  disturbance.  Seven 
data  are  input  at  a  time. 

Some  general  remarks  are  listed  as  follows: 

1.  One  unit  each  for  length,  mass  and  time  should 
be  used  throughout  the  preparation  of  data.  As 
far  as  this  regulation  is  observed,  either  custom' 
ary  (English)  system  or  the  SI  (international) 
system  may  be  used. 

2.  If  IDISC  =  0  in  Card  Group  2,  the  data  given  in 
Card  Groups  12  and  13  are  assumed  to  be  stored 
in  the  disk  in  the  same  formats  as  shown  here. 

3.  Total  time  for  which  the  response  calculation  is 
preformed  is  NCAL  X  DELTAT. 

D-3  Presentation  of  Results 

The  results  of  response  calculation  are  presented 
in  various  manners  according  to  the  specified  values  of 
IGPH  and  INSA  in  the  preparation  of  input  data. 

(1)  Those  which  are  printed  out  regardless  of  the  values 
of  IGPH  and  INSA. 

a.  First  three  natural  periods  and  the  smallest 


natural  period. 

b.  Locations  of  member  end  where  inelastic  action 
was  experienced. 

c.  Locations  of  member  ends  where  collapse  was 
indicated. 

d.  Maximum  values  in  displacement  relative  to  the 
ground,  displacement  relative  to  the  lower  floor, 
velocity  relative  to  the  lower  floor,  absolute 
acceleration,  resisting  force  due  to  damping, 
resisting  force  due  to  frame  action,  shear  co¬ 
efficient  and  the  total  (damping  and  frame  action 
combined)  resisting  force;  for  every  floor. 

(2)  Additional  results  which  are  printed  out  when  IGPH  > 

6;  or  IGPH  =  1  or  2,  and  INSA  £  5. 

e.  Displacement  relative  to  the  ground,  displacement 
relative  to  the  lower  floor,  velocity  relative 

to  the  lower  floor,  absolute  acceleration,  re¬ 
sisting  force  due  to  damping,  resisting  force  due 
to  frame  action  and  shear  coefficient;  for  the 
specified  floors  by  IP(i),  for  every  NTOBU-steps 
of  integration. 

(3)  Results  which  are  punched  out  when  IGPH  =  1. 

f.  Floor  number  (counted  from  the  bottom — only  in 
this  case) ,  time,  displacement  relative  to  the 
ground,  displacement  relative  to  the  lower  floor, 
velocity  relative  to  the  lower  floor,  absolute 
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acceleration,  resisting  force  due  to  damping, 
resisting  force  due  to  frame  action  and 
shear  coefficient  for  the  specified  floors 
by  IPCH(j),  for  every  MSKIP-steps  of  inte¬ 
gration.  The  output  format  is  (12,F8.3,  1P7E 
10.3) . 

g.  Maximum  values  in  displacement  relative  to 
the  lower  floor,  the  time  it  was  recorded, 
velocity  relative  to  the  lower  floor,  the 
time  it  was  recorded,  shear  coefficient  and 
the  time  it  was  recorded;  for  every  floor 
starting  from  the  bottom.  The  output  format 
is  ( 3 ( 1PE10 . 4 ,  OPF10.3)). 

(4)  The  results  stored  in  the  disk  when  IGPH  =  2. 

h.  The  same  variables  as  listed  in  article  f 
above,  by  the  same  output  format;  except  that 
they  are  recorded  for  every  floor. 

i.  The  same  variables  indicated  in  article  g 
above,  by  the  same  output  format. 

D-4  Description  of  Subprograms  and  Flow  Charts 
(1)  MAIN  PROGRAM 

Description:  MAIN  PROGRAM  is  functioned  to  set  initial 
values  for  some  variables  and  to  assemble  subroutines. 

Calls:  TIME,  SAKURA,  STIFF,  SHUKI ,  KIKU  and  JISHIN. 

Flow  Chart:  Shown  in  Fig.  D-l. 


Variables  in  Common  Statements  (in  order  of  appearance) : 

NS,  NB,  SH(i) ,  SPR(I),  SB(i),  RP(i,j),  UDL(i,j)  and 
SLPLS(i)  :  As  explained  in  the  preparation  of  input 
data, 

STF(i)  :  Stiffness  of  the  i-th  member,  2EI/L,  where 
L  is  either  column  length  or  bay  length 
(column  center  to  center) , 

SLP(i,j,k):  or  as  appears  in  Eqs.  4-3  and  4-4 

for  the  i-th  member  and  j-th  member  end. 

K  corresponds  to  the  branch  number  as 
depicted  in  Fig.  D-2. 

BETA ( i , j , k)  :  3j  as  appears  in  Eq .  4-3  and  4-4,  for 

the  i-th  member.  Subscript  k  indicates 

the  branch  number  as  shown  in  Fig.  D-2, 

THETA(i,j,k)  :  The  value  of  60  at  points  A,B,C,A',B 

s 

and  C' ,  respectively,  corresponding  to  K  =  1 
...  6  at  the  i-th  member  and  the  j-th  end, 
IMA(i,j)  :  Indicates  the  branch  in  the  M  -60 

b  b 

relationship  where  the  present  values  of 
(M  ,<5  0  )  lie,  at  the  i-th  member  and  the  j-th 

3  3 

end.  If  they  are  on  branch  #1,  IMA  =  0;  if 
on  branch  #2,  IMA  =1;  if  on  branch  #3, 

IMA  =2;  if  on  branch  #4,  IMA  =  -1;  and  if 
on  branch  #5,  IMA  =  -2 ,  in  Fig.  D-2, 

PMO(i,j,k)  :  The  values  of  M  at  points  A  and  A'  in 

s 
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Fig.  D-2,  for  k  =  1  and  2,  respectively, 
at  the  i-th  member  and  the  j-th  end. 

HXD(i)  :  Vector  {£}  defined  in  Eq.  4-27,  and 

HNL(i)  :  Vector  { r) )  defined  in  Eq.  4-27. 

Other  Variables  (Only  the  important  ones) 

GOSA,  NCAL ,  MXIT ,  NTOBU,  NSAI ,  GR,  DELTAT , 

SEICO ,  IP  ( i)  ,  THAJI,  TOWA,  LTP ,  IGPH  and  IDISC: 
As  explained  in  the  preparation  of  input 
data, 

C(i)  :  Identical  to  H(i)  as  explained  in  the 
preparation  of  input  data  until  KIKU  is 
called;  thereafter,  c^  as  defined  in  Eq. 
4-28. 

SM(i)  ;  Mass  concentrated  at  the  i-th  floor, 
CSM(i)  :  CSM^  as  defined  in  Eq.  4-34. 

ITIME  :  TIMELT  expressed  in  terms  of  milli¬ 
seconds  , 

IA  :  Number  of  unknowns  (  dimension  of  {0}) 
in  Eq.  4-23, 

Q(i,i)  :  Stiffness  matrix  [G]  in  Eq.  4-27, 

A ( i , j )  :  Matrix  [R]  in  Eq.  4-23.  Stored  for 

only  the  band  width  of  2N^  +  3, 

ISHUT  :  Indicates  if  the  Gaussian  elimina¬ 
tion  process  was  done  without  having  numer¬ 
ical  problems (ISHUT  =  0)  or  not  (ISHUT  = 

1) ,  and 


v 
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GOME  :  l/a)1,  where  oo  ^  is  defined  in  Sec. 

4-5-1. 

(2)  SUBROUTINE  SAKURA 

Description:  SAKURA  reads  in  most  of  the  input 

data  and  prints  out  the  important  frame 
properties  necessary  for  the  identification 
of  the  problem. 

Called  By:  MAIN 
Flow  Chart:  Omitted 
New  Variables: 

SM(i)  :  Weight  at  first,  later  converted 
to  mass,  concentrated  at  the  i-th  floor, 
and 

TEMPO (i)  :  Temporary  variables. 

(3)  SUBROUTINE  STIFF 

Description:  STIFF  is  called  whenever  a  new 

stiffness  matrix  [G]  as  in  Eq.  4-27  is 
necessary  to  be  calculated.  Matrix  [R]  as 
in  Eq.  4-23  is  constructed  by  calling  FUJI. 
LU  decomposition  (Gaussian  elimination)  of 
matrix  [R]  using  Doolittle's  method  (with¬ 
out  pivoting)  is  performed.  Then,  by 
calling  YURI,  Eq.  4-23  is  solved  for  the 
stiffness  matrix  in  the  manner  as  described 
in  Sec.  4-4-2. 

Called  By:  MAIN,  JISHIN  and  SAIBUN. 
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Calls:  FUJI  and  YURI 

Flow  Chart:  Shown  in  Fig.  D-3. 

New  Variable: 

INIT  :  Indicates  if  this  subroutine  is 

called  to  calculate  the  initial  stiff¬ 
ness  matrix  by  MAIN  (INIT  =0)  or  not 
INIT  =1) . 

(4)  SUBROUTINE  FUJI 

Description:  FUJI  assembles  the  elements  of  matrix 

[R]  defined  in  Sec.  4-4-2.  The  coefficients 
of  0^  and  0^  in  the  modified  slope  deflec¬ 
tion  equations  as  in  Eqs .  4-5  and  4-6  are 
obtained  by  calling  IZU. 

Called  By:  STIFF 
Calls:  IZU. 

Flow  Chart:  Omitted. 

New  Variables: 


VA 

:  Coefficient 

of 

in  Eq. 

4-5 

or  4-6, 

VB 

:  Coefficient 

of 

0^  in  Eq. 

IT) 

1 

or  4-6, 

MA 

:  Member  number 

indicating 

the 

column 

which  connects  from  above  to  the  joint 
where  the  equilibrium  of  moments  is 
being  considered, 

ML  :  Member  number  indicating  the  beam 

which  connects  from  left  to  such  a  joint, 


MR  :  Member  number  indicating  the  beam 

which  connects  from  right  to  such  a  joint 
MB  :  Member  number  indicating  the  column 
which  connects  from  below  to  such  a  joint 


FRl  : 

h 

as 

defined 

in 

Sec.  4-4-1,  and 

FR2  : 

X2 

as 

defined 

in 

Sec.  4-4-1. 

SUBROUTINE  IZU 

Description : 

IZU 

calculates 

the 

i  coefficients  of 

0  and 
a 

eb 

in 

Eq.  4-5 

or 

4-6  when  called 

FUJI,  or  those  in  Eq.  C-3  or  C-4  when  called 
by  KYOTO.  If  IZU  is  called  with  respect  to 
the  equilibrium  of  story  shears  by  FUJI,  the 
corresponding  values  are  calculated  from  the 
combined  equation,  M  ^  +  M^a,  obtained  from 
Eqs .  4-5  and  4-6.  The  formulae  used  in  the 
actual  computation  sometimes  look  different 
than  given  in  the  mentioned  equations, 
depending  upon  the  values  of  and 

Called  By:  FUJI  and  KYOTO. 

Flow  Chart:  Omitted. 

New  Variables: 

II  :  Indicates  if  the  present  calculation 
should  be  done  using  Eq.  4-5  or  C-3  (II 
=  1) ,  or  using  Eq.  4-6  or  C-4  (II  =  2) . 
Further,  if  II  =  3,  the  combined  equation 


' 


Mab  +  ^ba'  s^ou-*-^  used, 

IASHI  :  Indicates  if  the  member  being  con¬ 
sidered  is  the  column  of  bottom  story 
(IASHI  =  -1)  or  not  (IASHI  =  1) ,  and 
IGO  :  Indicates  if  this  subroutine  was 
called  by  FUJI  (IGO  =1)  or  by  KYOTO 
(IGO  =  -1) . 

(6)  SUBROUTINE  YURI 

Description:  YURI  assembles  the  right  hand  side, 

(b)  ,  of  Eq.  4-23  by  calling  B,  and  solves  for 

{0}  .  by  calling  SOLVE.  It  then  constructs 

the  stiffness  matrix  [G]  as  described  in 

Sec.  4-4-2.  If  it  is  the  calculation  of  the 

initial  stiffness  matrix,  the  vector  (r|  } 

o 

defined  in  Sec.  4-4-2  is  also  evaluated. 
Called  By:  Stiff. 

Calls:  B  and  SOLVE 
Flow  Chart:  Omitted. 

(7)  FUNCTION  B 

Description:  B  assembles  the  i-th  element  of  vector 
(b)  in  Eq.  4-23  by  calling  UHEN  for  given 
values  for  vector  {  x} . 

Called  By:  YURI  and  KYOTO. 

Calls:  UHEN 

Flow  Chart  :  Omitted. 


' 


■ 

' 
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New  Variables: 

MA,  ML,  MR,  MB  FRl  and  FR2 :  As  defined  in  IZU, 

IJ  :  Indicates  the  element  number  in  vector  {b}  , 

SXD(i)  :  Displacement  relative  to  the  ground; 
i.e.,  the  vector  { x)  defined  in  Sec.  4-4-2 
and 

R  :  Sway  rotation,  p,  as  defined  in  Sec.  4-4-1. 

(8)  FUNCTION  UHEN 

Description:  UHEN  sums  the  rest  of  the  terms  that 

are  excluded  either  by  0  term  or  0,  term  in 

a  b 

Eq.  4-5  or  4-6  when  called  by  B,  or  the  cor¬ 
responding  terms  in  Eq.  C-3  or  C-4  when  called 
by  KYOTO.  If  UHEN  is  called  with  respect  to 
the  equilibrium  of  story  shears  by -B, the  cor¬ 
responding  value  is  calculated  from  the  com¬ 
bined  equation,  M  ^  +  ^ba'  °ktaine<3  f^om  Eqs. 
4-5  or  4-6.  The  formulae  used  in  the  actual 
computation,  sometimes  looks  different  than 
given  in  the  mentioned  equations  depending 
upon  the  values  of  and  a^. 

Called  By:  B  and  KYOTO. 

Flow  Chart:  Omitted. 

New  Variables: 

II  and  IASHI :  as  defined  in  IZU, 


M  :  Member  number, 


S:  Member  length,  and 

IGO  :  Indicates  if  this  function  was  called 
by  B  (IGO  =  1)  or  by  KYOTO  (IGO  =  -1) . 

(9)  SUBROUTINE  SOLVE 

Description:  SOLVE  solves  for  {0}  in  Eq.  4-23  by  back 
substitutions . 

Called  By:  YURI  and  KYOTO. 

Flow  Chart:  Omitted. 

New  Variables: 

A(i,j)  :  Lower  and  upper  matrices  that  have 
been  obtained  by  LU  decomposition  of 
matrix  [R]  in  Eq.  4-23  (done  in  STIFF)  are 
now  stored,  instead  of  [R]  itself, 

W(i)  :  Vector  {b}  in  Eq .  4-23  at  the  be¬ 
ginning;  then  changed  to  [L]  ^  {b}  using 
forward  elimination.  When  the  calculation 
is  finished,  it  is  the  solution  {0}  in  Eq. 
4-23,  and 

C(i)  :  Story  shear  terms  in  the  solution 
{0}  in  Eq.  4-23. 

(10)  SUBROUTINE  SHUKI 

Description:  SHUKI  computes  the  first  three  undamped 

natural  periods  and  the  minimum  natural  period; 
and  corresponding  modes. 


Called  By:  MAIN 


v 


Calls:  T0KY01 


Flow  Chart:  Omitted. 

(11)  SUBROUTINE  TOKYOl 

Description : TOKYOl  is  used  to  change  a  matrix  to  its 
inverse  matrix  as  it  goes  through. 

Called  By:  SHUKI  and  KIKU. 

Flow  Chart:  Omitted. 

(12)  SUBROUTINE  KIKU 

Description:  KIKU  calculates  the  damping  coefficients, 
c^,  as  defined  in  Eq.  4-28.  It  also  calculates 
the  initial  def lection ,{ £  Q)  as  in  Eq.  4-26. 

Called  by:  MAIN 
Calls:  TOKYOl. 

Flow  Chart:  Omitted. 

(13)  SUBROUTINE  JISHIN 

Description:  JISHIN  is  the  most  important  subrou¬ 

tine  as  it  solves  the  equations  of  motion  by 

calling  SUCHI,  checks  member  end  moments,  M  , 

s 

and  relaxation  angles,  66  ,  if  they  are  within 

s 

the  assumed  branches  of  the  M  -60  relationship 

s  s 

by  calling  KYOTO  and  if  they  are  not,  a  new 

stiffness  matrix  is  calculated  in  SAIBUN.  The 

M  -69  relationships  are  updated  in  the  manner 
s  s 

as  described  in  Sec.  2-3,  by  calling  NARA.  The 
results  are  output  in  various  formats  according 
to  input  specifications. 


Called  By:  MAIN 

Calls:  STIFF,  SUCHI,  SAIBUN,  KYOTO,  NARA  and  TIME. 

Flow  Chart:  Shown  in  Fig.  D-4. 

New  Variables: 

GA(i) ,  TSEI  (i)  :  As  defined  in  the  prepara- 


tion  of  input  data. 

AX  (i) 

:  Acceleration  relative  to  the  ground 

({x*}  as  in  Sec.  4-5-1), 

VX  (i) 

:  Velocity  relative  to  the  ground  ({x}) 

XD(i) 

:  Displacement  relative  to  the  ground 

({x})  , 

RX  (i) 

:  Displacement  at  the  i-th  floor  rela¬ 

tive  to  the  i+l-th  floor, 

RV  ( i) 

:  Velocity  at  the  i-th  floor  relative 

to  the  i+l-th  floor, 

AA  ( i) 

:  Absolute  acceleration  ({x*}+  Yq) 

for  an  earthquake;  {x* }  for  a  blast 

load) , 

CQ(i)  :  Shear  coefficient, 

RESC(i)  :  Resisting  force  due  to  damping, 

RESQ(i)  :  Resisting  force  due  to  frame  action 
RXMX(i)  :  Maximum  value  in  relative  dis¬ 
placement  , 


RVMX(i)  :  Maximum  value  in  relative  velocity, 
CQMX(i)  :  Maximum  value  in  shear  coefficient. 


XDMX(i)  :  Maximum  value  in  displacement  relative 
to  the  ground  , 

AAMX(i)  :  Maximum  value  in  absolute  acceleration, 

RCMX(i)  :  Maximum  value  in  resisting  force  due 
to  damping, 

RQMX(i)  :  Maximum  value  in  resisting  force  due 
to  frame  action, 

TRMX(i)  :  Maximum  value  in  total  resisting  force, 

TRX(i)  :  Time  when  the  maximum  relative  dis¬ 
placement  was  recorded, 

TRV(i)  :  Time  when  the  maximum  relative  velocity 
was  recorded, 

TCQ(i)  :  Time  when  the  maximum  shear  coeffici¬ 
ent  was  recorded, 

OAX(i)  :  Acceleration  ( {x*  })  obtained  in  the 
previous  step  of  integration, 

OVX(i)  :  Velocity  ({x})  obtained  in  the  previous 
step  of  integration, 

OXD(i)  :  Displacement  ({x})  obtained  in  the 
previous  step  of  integration, 

FT(i,j)  :  Present  value  of  relaxation  angle,  50  , 

b 

at  the  i-th  member  and  the  j-th  end, 

KOSAN ( i , j )  :  Indicates  if  the  rotational  spring 


has  experienced  inelastic  action  (KOSAN  = 
1)  or  not  (KOSAN  =0)  at  the  i-th  member 
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and  the  j-th  end, 

GAl  :  External  disturbance  at  t  =  t  -  2 At 

P 

where  t  is  the  value  of  time  axis  for 
P 

which  the  present  step  of  calculation  is 
being  done, 

GA2  :  External  disturbance  at  t  =  t  -  At, 

P 

GA3  :  External  disturbance  at  t  =  t  , 

P 

GA4  :  External  disturbance  at  t  =  t  +  At, 

P 

and 


TP 


Value  of  time  axis  for  which  the 


present  step  of  calculation  is  being  done 
.4)  SUBROUTINE  SAIBUN 


Description:  SAIBUN  reperforms  the  numerical  in¬ 

tegration  by  calling  SUCHI  with  a  smaller 
value  of  time  increment,  when  the  calculations 
failed  to  converge  with  regular  value  of  t  or 

when  the  M  -60  relationships  at  any  member 
s  s 

ends  are  being  changed  from  one  branch  to 
another. 


Called  by  JISHIN. 

Calls:  SUCHI,  KYOTO,  STIFF  and  NARA. 
Flow  Chart:  Shown  in  Fig.  D-5. 

New  Variable: 


GAP  :  Present  value  of  external  disturbance 
obtained  by  interpolating  GAl,  GA2 , 
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GA3  and  GA4 . 

(15)  SUBROUTINE  SUCHI 

Description:  SUCHI  solves  the  equations  of  motion 

using  the  linear  acceleration  method  as  ex¬ 
plained  in  Sec.  4-5-2. 

Called  By:  JISHIN  and  SAIBUN. 

Calls:  QQ. 

Flow  Chart:  Shown  in  Fig.  D-6. 

New  Variable: 

ISAI  :  Indicates  if  the  equations  of  motion 
were  solved  successfully;  i.e.,  numeri¬ 
cal  integration  procedure  converged 
(ISAI  =  10)  or  not  (ISAI  =  -  10) . 

(16)  FUNCTION  QQ 

Description:  QQ  calculates  Q^  ({x})  in  Eq.  4-32. 

Called  By:  SUCHI.  - 
Flow  Chart:  Omitted. 

(17)  SUBROUTINE  KYOTO 

Description:  KYOTO  calculates  the  present  value  of 

relaxation  angle  at  every  member  end  and 

checks  if  it  is  within  the  assumed  branch  of 

the  M  -60  relationship  (set  ICHI  =  0)  or  not 
s  s 

(Set  ICHI  >  1) . 

Called  By:  JISHIN  and  SAIBUN. 

Calls:  B ,  SOLVE ,  IZU  and  UHEN . 


Flow  Chart:  Shown  in  Fig.  D-7 . 

New  Variables: 

EM(j)  :  End  moment  at  the  j-th  end  of  the 
member  being  considered;  i.e.,  M  ^  and 
M^c  as  defined  in  Eqs.  C-3  and  C-4,  and 

IIQ  :  Indicates  if  this  subroutine  was 

called  by  JISHIN  (IIQ  =  1)  or  by  SAIBUN 
(HQ  =  2)  . 

(18)  SUBROUTINE  NARA 

Description:  NARA  updates  the  M  -  60  relationships 

s  s 

by  using  the  procedure  described  in  Sec.  2-3. 
It  also  prints  out  the  location  of  member  end 
when  it  experiences  the  inelastic  action  for 
the  first  time  or  when  the  collapse  is  in¬ 
dicated. 

Called  By:  JISHIN  and  SAIBUN. 

Flow  Chart:  Shown  in  Fig.  D-8. 

New  Variable: 

KDIS  :  Indicates  if  any  rotational  springs 
have  indicated  collapses  (KDIS  =  -10)  or 
not  (KDIS  =  10) . 

(19)  SUBROUTINE  TIME 

Description:  TIME  is  a  standard  MTS  (Michigan  Termi¬ 

nal  System  -  IBM/360  at  the  University  of 
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Alberta)  subroutine  which  allows  the  user  easy 
access  to  the  elapsed  time,  CPU  time  used,  time 
of  day,  and  the  date  in  convenient  units. 

Called  By:  MAIN  and  JISHIN. 

D-5  Listing  of  Progaram. 

The  listing  of  the  program  appears  on  pages 
through 


f 


> 


Fig.  D-l  MAIN  PROGRAM 


. 
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FIG.  D-2  Ms_(5es  Relationship  in  General  Situation 


Fig.  D-3  SUBROUTINE  STIFF 


Fig 


D-4  SUBROUTINE  JISHIN 


(to  be  continued) 
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Fig.  D-4 


(continued)  SUBROUTINE  JISHIN 


- 
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i 


Fig.  D-4  (continued)  SUBROUTINE  JISHIN 


Fig.  D-4 


(continued)  SUBROUTINE  JISHIN 


. 


Fig.  D-4 


(continued) 


SUBROUTINE  JISHIN 


. 
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Fig.  D-5 


SUBROUTINE  SAIBUN 
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Fig.  D-6  SUBROUTINE  SUCHI 


203 


Fig.  D-7 


SUBROUTINE  KYOTO 


Yes 


(  Enter  J 


Set  KDIS=10 


< 


I 


Is  IMA  (i 


No 


< 


j,j)=o? 


No 


Is  KOSAN (i 


I 


M>=0?  ) 


Yes 


^  Print  out  the  location  where  yielding  is  recorded  j 


Set  KOSAN (i  ,  j  )  =1 


t 


Is  collapse  declared  at  this  member  end? 


1 

f  No 

Yes 

f 

Update  the  Ms-60s 
relationship 

3 

Set  KDIS=-10 

> 

This  is  the  end  of 
the  procedure  for  this  member  end 


i 


Has  the  updating  procedure  been  completed 
at  all  member  ends? 


C 


i 


Yes 


Return 


j 


Fig.  D-8  SUBROUTINE  NARA 


- 
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COMMON  NS»N9«STF(225) »SH(25) »  SP  R  (  5).SB(  4),RP(25.  5),U0L(25.  4) 

*. I  OP (225, 2), I  ON (225, 2). SLPLS( 22 5 ) , SL P ( 22 5 , 2 , 5 ) , B ETA ( 22 5 . 2 . 7 ) , 

1 THET  A( 225, 2,6),  IMA(  225. 2), PMO<  22  5, 2. 2), HXD(  25)  ,HNL(25) 

2,  E ML AST ( 225,2) , K GS S AN ( 22 5 , 2 ) , INEG(225,2> , IPOS( 225,2) , PMC ( 225* 2 , 2 ) 

3 ,  ROTN ( 225 ) .ROT  MAX (225 ) , R CT M I N ( 22 5 ) 

DIMENSION  A ( 1 50 ,  1 1 ) , CS M ( 25 ) , 0 ( 2 5 . 25 ) , C ( 2 5) , SM { 25 ) , I P ( 2 5) 

CALL  TIME(O) 

CALL  SAKURA  ( GOSA.NCAL, MX  IT , NTOBU, NS A I , GR, DELTAT , SE I  CO . C , SM , I P , C SM 

1 . THAJI , TCWA ,LT  P , I GPH , I T I  ME , I D I  SC ) 

NMEB= ( 2*Ne+l ) *NS 

DO  302  M=i,NMEB 
DO  302  K=1 ,2 
302  EML  A  ST ( M  «  K ) =0 • 0 
IA=(NB+2)*NS 
DO  100  1=1, NS 
HXD ( I )=0.0 
HNL ( I )=0.0 
100  CONTINUE 

CALL  ST IFF(Q»0»A»  IA,  I  SHUT ) 

I F (  ISHUT  ,E0.  1  )  STOP 
WR I TE ( 6 , 200  ) 

200  FORMAT(/lX, 'STIFFNESS  MATRIX  FOR  THE  FRAME  -  IN  TERMS  OF  TOTAL  ST 

1 OREY  SHEAR. • ) 

IF ( NS  .LE.  8)  GO  TO  230 
DO  220  1=1. NS 

WRI TE (6.210 )  I, ( Q ( I , J ) »  J= 1  , NS ) 

210  FORMAT ( 3X . 'ROW ,I3,8E15.6/(9X,8E15.6>> 

220  CONTINUE 
GO  TO  260 
230  DO  250  1=1, NS 

WRI  TE (6,240)  I , ( O ( I  . J ) , J= 1  . NS ) 

240  FO RMAT ( 3X , ' ROW'  ,  I3.8E15.6) 

250  CONTINUE 

260  CALL  SHUKKO.SM.GCME) 

CALL  KIKU  ( DELTAT ,C . GOME , 0. GOSA, GR. NCAL ) 

CALL  JISHIN  (SM.CSM.C.IP,  I GPH , GR , GOS A , NC AL . DELTA T , MX  I T , NSA I  , NTOBU • 
1 THAJI .TOWA.SEICO.O, IA.A,LTP,ITIME.IDISC) 

STOP 

END 

SUBROUTI  NE  SAKURA  (GOSA, NCAL , MX  I T , NT OBU , NS A  I  , GR . DELT AT , SE I  CO , H, SM, 
l IP, CSM, THAJI .TOWA.LTP.IGPH, ITIME, IDISC) 

COMMON  NS,NB,STF(225) ,SH(25),SPR(  5).SB(  4),RP(25.  5>,UDL(25,  4) 

* ,1  OP( 225. 2)  , ION( 225.2  )  . SLPLS( 225 ) , SLP( 2  25, 2 . 5)  • BETA ( 22 5 , 2 • 7 ) . 

1 THET A( 225.2 ,6 ) ♦  IMA(  225,  2)  , PMO ( 22  5. 2 . 2) , HXD( 2  5) . HNL( 25) 

2 . EML AST ( 22  5.2)  , KOSS AN ( 22 5 , 2 )  . I NEG ( 22 5 , 2 )  . I P OS ( 22 5 . 2 )  .PMC (225,2,2) 

3.  ROTN ( 225 ) . ROT M A X ( 2 2 5 ) , ROT M I N ( 225) 

D I  MENS  I  ON  BMI  (25.4)  ,CMI(25.5),SM(25).IP(25)  ,H(25)  »CSM(2 
1 5) ,NES( 225) ,TEMPO( 225) . NESS (225 ) 

10  FO  RMAT (  1 H 1 ) 

20  FORM  AT ( 1 H  ) 

COMMENT  :  INPUT  STATEMENT 

RE AD (5, 1 00)  NS. NB. NCAL. MX  IT, NTOBU, NS A I ,LTP,  I GPH, T I  MELT , 

1 DELTAT, GOSA.EM.GR .SEICO, I DI SC .THAJI ,TOWA 
100  FORM  AT (  815 . 1 0X.3F1 0 .0/3F 1 0 . 0 .  I  5 ,25X , 2F 10.0 ) 

IF ( T I  MELT  .LT.  0.000001  )  TIMELT=60.0 
I  T I  ME= I F I  X ( T I  MELT  *6  0  0  00 .0) 

NB1=NB+1 


- 


NBB=2*NB+1 

NBBT=NBB*NS 

COMMENT  :  INPUT  STATEMENT 

RE  AD (5*110)  ( SB(  J) , J=1 , NB > 

1 1 0  FORM  AT ( (8F1 0.0 )  ) 

DO  130  1=1. NS 

COMMENT  :  INPUT  STATEMENT 

READ! 5. 1 201  SM(I),H(I),SH(I),IP(I) 

120  FORMATI3F1 0 .0. 15) 

130  CONTINUE 

DO  140  1=1, NS 

COMMENT  :  INPUT  STATEMENT 

READ ( 5  «  110)  (RP(I.J)  »J=1.NB1) 

140  CONTINUE 

DO  150  1=1 .NS 

COMMENT  :  INPUT  STATEMENT 

READ (5,110)  (BMK  I.J)  •  J  =  1  . NB ) 

150  CONTINUE 

DO  160  1=1. NS 

COMMENT  :  INPUT  STATEMENT 

READ(5,110)  (CM  I  (  I, J )  ,J=1 ,NB1 ) 

160  CONTINUE 

DO  190  1=1, NS 
DO  170  J= 1 . NB 
I J=NBB$ ( 1-1 )+J 

STF ( I J)=2.0*EM*BMI (I  »  J) /SB ( J ) 

170  CONTINUE 

DO  180  J= 1  *  NB 1 

I J=NBB* ( 1-1 ) +NB+J 

STF ( I J)=2 .0*EM*CMI ( I , J)/SH( I ) 

180  CONTINUE 
190  CONTINUE 

COMMENT  :  INPUT  STATEMENT 

READ (5*110)  (SPR( I ) .1=1 ,NB1) 

CSM ( 1  )  =  SM ( 1  ) 

I F ( NS  .EQ.  1)  GO  TO  220 

DO  210  I =2. NS 

CSM ( I )=CSM( I— 1 ) +SM( I ) 

210  CONTINUE 
220  DO  230  1=1, NS 

COMMENT  :  INPUT  STATEMENT 

READ ( 5t 110)  (UDL( I, J) ,J=1 ,NB) 

230  CONTINUE 
I T  SU=0 
KUMI =0 

COMMENT  :  INPUT  STATEMENT 

240  R  E  AD (5.241  )  I  KUTS U ,  ( NES ( K  )  , K= 1 ,  I KUTSU ) 

241  FORMAT( ( 161 5) ) 

K=1 0000000 

DO  231  J=1 • IKUTSU 

IF ( NES ( J )  .GE.  K)  GO  TO  231 

K=NES( J ) 

I F( J  .EQ.  1 )  GO  TO  231 
NES( J)=NES( 1 ) 

NES ( 1 )=K 

231  CONTINUE 

COMMENT  :  INPUT  STATEMENT 

RE  AD (5. 24  2)  ( TEMPO (  I  )  ,  I  =  1 . 6 ) , SLPLS( K ) 

242  F0RMAT(7E10.5) 

KUMI =  K  UM I  +  1 


' 
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DO  245  J=1 , IKUTSU 
JJ=NES! J ) 

NESS ( JJ)=KUMI 
245  CONTINUE 

SLP ( K  » 1 • 1 )  =  TEMPO( 2) /TEMPO!  I ) 

SLP( K, 1 ,2)  =  (TEMPO( 4)— TEMPO! 2 )  )/( TEMPO! 3 )— TEMPO!  1 ) ) 

SLPIK.l  »3) =!TEMPO!6) —TEMPO! 4 )  ) / ! T EMPO ! 5 ) -TEM PO ! 3 )  ) 

SLP! K, 1 ,  4  ) =  SLP  ! K  *  I ,2 ) 

SLPtK.l • 5 )=SLP! K  » 1 *3 ) 

BET  A ! K  » 1,  1)=0.0 

BETA! K. 1  .2)  =  ! TEMPO! 3 >  *TEMPC! 2 )-TEMPO! 1 ) 4TEMPO! 4)  )/! TEMPO! 3 J-TEMPO! 

ID) 

BETA! K, 1 . 3)=! TEMPO! 5 ) *T EMPO! 4 > -TEMPO ! 3 ) 4TEMPO ! 6 ) )/! TEMPO! 5 J-TEMPO! 

13)  ) 

BETA! K,  1  »  4  )  =-*-BET  A  !  K  •  1  ,2) 

BETA! K. 1 , 5>=-BETA!K, 1 ,3)  , 

TEMP0!4)=TEMP0!2) 

THET  A ! K  » 1, 1)=0.0 
THETA! K. 1  .2  >=TEMFO! 1  ) 

THETA! K « 1 ,3)=TEMP0!5) 

THET  A ! K  *  1 ,4)=0.0 
THETA! K, 1  »  5 ) =— T  EMPO! 1  ) 

THE  T  A ! K • 1 , 6) =-TEMPO! 5) 

PMO! K, 1 »  1  )  =  T  EMPO ! 2 ) 

PMOt K, 1 .2 )=— TEMPO ! 2 ) 

DO  270  1=1. IKUTSU 
KI=NES! I ) 

DO  260  J=l,2 
IOPIKI , J)=l 
ION! KI , J)=l 
I M A ! K I , J)=0 
EML AST !KI»J)=0.0 
INEG! KI , J>=5 
IPOS! KI . J)=2 

IF! I  .EQ.  1  .AND.  J  .EQ.  1)  GO  TO  260 

DO  255  L= 1*7 

I F ! L • GE • 7 ) GO  TO  256 

THETA! K I  *  J  *L ) =T  HET  A ! K.i ,L) 

256  CONTINUE 
IFIL.GE.6 ) GO  TO  257 

BET  A! KI , J ,L>  =BETA!K, 1 .L ) 

257  CONTINUE 

IF ! L  .GE.  3)  GO  TO  255 
PMO! KI , J .L)=PMO! K, 1 ,L) 

255  CONTINUE 

SLPLS ! K I )=SLPLS!K) 

DO  265  L= 1.5 

SLP ! K I . J,L)=SLP!K.l .L) 

265  CONTINUE 
260  CONTINUE 
270  CONTINUE 

THETA! K.I ,5)=TEMPC!4) 

THETA! K . 1  »  6 ) =TE  MPO ! 6 ) 

ITSU=  I TSU+ IKUTSU 
IF! I TSU  .EQ.  NBBT )  GO  TO  275 
GO  TO  240 
275  WR ITE!6, 10) 

WRITE16, 280 ) 

280  FORMAT! IX, • INPUT  DATA  ♦*•) 

WRITEI6.290) 


' 


. 


• ,5X,» PLASTIC  MOMENT  **  ST  I FFNESS C 2E I /L )  **  U.D 


290  FORMAT(/l X, • BEAMS 

1 .L. • ) 

KAKU=1 

300  JS= ( KAKU-1) *3+1 
IF ( NB  .LE.  KAKU+3 )  GO  TO  301 
JE=JS+2 

KAKU=KAKU+ I 
GO  TO  302 

301  JE=NB 
KAKU=-1 
JES=JE+1-JS 

GO  TO  (304,303.302),  JES 
304  WR I TE ( 6, 307 )  (J,J=JS.JE) 

GO  TO  308 


303  WRI TE ( 6 ,306 )  (J.J=JS,JE) 
GO  TO  308 


302 

305 

WRITE(6,305)  (J.J=JS.JE) 

FORMAT! 3X, • FLOOR*  ,3 ( 1  OX ,* - BAY 

NO  . 

(  * 

,13,' 

) - *  ,  7X)  ) 

306 

FORMAT(3X , • FLOOR*  .2 ( 10X . * - BAY 

NO  . 

(  * 

,  13.  ' 

) - •  ,  7  X  )  ) 

307 

F0RMAT(3X, • FLOOR* ,  10X,* -  BAY 

NO  . 

(  ' 

,13,* 

) - .  } 

308 

OO  320  1=1, NS 

I J=NBB*( 1-1 ) +JS 
I JJ  =  I J+ JE-JS 
OO  310  K=JS,JE 
KK=I J-JS+K 
TEMPO (KK)=UDL( I , K ) 

310  CONTINUE 

WR ITE(6»315)  I . ( ( PMO ( J , 1,1), STF( J) , TEMPO! J) ) ,U=I J, I JJ) 

315  FORMAT! 1 X, 16, 1 X , 3 ( 2X , 3E 1 3 . 5 ) ) 

320  CONTINUE 

WRI TE (6,325)  ( SB ! J) , J=J S, JE ) 

325  FORM  AT (3X, • BAY  L ENGT H •  , 1 0 X , E 1 3 . 5 , 2 ( 2 8X , E 1 3 . 5 ) ) 

I F ( K AKU  .GE.  0)  GO  TO  300 
WRI TE ( 6 , 330 ) 

330  F0RMAT(//1X, 'COLUMNS*  ,5X,  ‘PLASTIC  MOMENT  4*  ST  I FFNESS ( 2E I /H )  **  LE 

1NGTH  OF  RIGIC  ZONE  (EACH  SIDE  OF  COLUMN)*) 

KAKU=1 

340  JS= (KAKU-1 ) 43+1 

I F ( NB 1  .LE.  KAKU43)  GO  TO  341 

JE=JS+2 

KAKU=KAKU+1 

GO  TO  342 

341  JE=  NB 1 
KAKU=— 1 
JES=JE+ 1-JS 

GO  TO  (344,343.342).  JES 

344  WR I TE( 6,347)  (J.J=JS»JE) 

GO  TO  348 

343  WRITE(6»  346 )  (J.J  =  JS»JE) 

GO  TO  348 

342  WRITE(8,345)  (J,J=JS,JE) 

345  FORMAT(3X. 'STOREY* ,3(9X.* -  COLUMN  NO.  (*,I3,*  )  *,7X)) 

346  F0RMAT(3X, 'STOREY*. 2(9X,* -  COLUMN  NO.  C.I3,*  )  - *,7X)) 

347  F0RMAT(3X, 'STOREY* ,  9X , • -  COLUMN  NO.  (*,I3,*  )  - *) 

348  DO  360  1=1. NS 

I J=NBB*( 1-1 ) +NB+JS 
I  JJ=I J+JE-JS 
DO  350  K=JS,JE 
KK=I J-JS+K 
TEMPO ( KK )=RP(  I  . K) 


. 
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350  CONTINUE 

WRI TE! 6. 31 5)  I • ( (PMO !J»1»1),STF!J) .TEMPO! J) ) , J=I J, I JJ) 

360  CONTINUE 

WRI TE ( 6 .37  0 )  ( SPRC I ).  I  =  JS.JE) 

370  FORMAT(3X, • BASE  SPRING  CONST . •  , 2 X . El  3 . 5 . 2 C 28 X , E 1 3 • 5 )  ) 

IFIKAKU  • GE •  0)  GO  TO  340 
WRITE! 6, 380 ) 

380  FORMAT! //I X,* CTHER  STRUCTURAL  PROPERTIES*) 

I F ! LTP  .GE.  5)  GO  TO  420 
WRITE! 6.390 ) 

390  FORMAT!  3 X , • STO R EY *  , 5X , •  HE I GHT •  ,  9X  ,  •  WE  I GHT •  , 4X , • CUMUL A T I VE  WT.*.2 
IX, 'DAMPING  COEF.*) 

DO  410  1=1, NS 

WRITE! 6.400 )  I . SH ! I ) , SM ! I  ) , CSM !  I  ) , H!  I ) 

400  FORMAT! IX, I6.6E15.5) 

SM! I )=SM! I ) /GR 
CSM! I )=CSM! I >/GR 
410  CONTINUE 
GO  TO  445 

COMMENT  :  INPUT  STATEMENT  IONLY  WHEN  BLAST  LOADING) 

420  RE AO 15,110)  ! CSM !  I  ) , I =1  , NS ) 

WRI TE!6. 430  ) 

430  FORMAT!  3X . • STOR EY • , 5X , •  HE  I GHT *  . 9X ,  • W E I GHT * , 5X , • D AMP  I NG  COEF.*,3X 
1  ,  •  LOAD  FACTOR*  ) 

DO  440  1=1 . NS 

WRI TE 16.400 )  I . SH! I ) . SM ! I ) ,H! I ) .CSM! I ) 

SM! I ) =SM 1 I ) /GR 
CSM ! I ) =— CSM ( I ) 

IF! I  .EQ .  1 )  GO  TO  440 

CSM! I )=CSM! 1-1 )+CSM! I ) 

440  CONTINUE 
445  WRITEI6.450) 

450  FO  RM  AT (//IX. 'THE  SPRING  TO  SIMULATE  THE  PLASTIC  BEHAVIOUR  AND/OR  A 
1XIAL  LOAD  EFFECT  HAS  A  MOMENT-THETA  RELATION  GIVEN  BELOW*) 

DO  500  L=1 , KUMI 
I KUTSU=0 

DO  460  LL=1 , NBBT 
IF! NESS ! LL )  . NE .  L)  GO  TO  460 

I KUT  SU=I KUTSU  +  1 
NES! IKUTSU)=LL 
460  CONTINUE 
K=NES( 1 ) 

IF!  IKUTSU  .LE.  22)  GO  TO  481 
WPITE16.480)  1NES! I ). 1=1 . IKUTSU) 

480  FORMAT !3X , • FOR  THE  MEMBER  NO . • , 2 2 ! I  4 ,  •  •  •  ) / !  6X ,  25!  1 4 ,  •  ,  •  )  )  ) 

GO  TO  490 

481  WRITE16.482)  ! NES  !  I  )  .  1= 1  *  I KUTSU ) 

482  FORMAT! 3X .* FOR  THE  MEMBER  NO . *  . 22 !  I  4 .  •  ,  •  )  ) 

49  0  WRI  TE 1 6, 4  91 )  THETA 1 K . 1  • 1 )  , PMO! K. 1  , 1  )  , THET  A!  K. ,1.2)  .THETA!  K, 1 , 5)  . 

1  THETA! K, 1  ,3 )  .THET A! K, 1 .6)  , SLPLS! K  ) 

491  FORM  AT ! 3X ,  • THET A-MOMENT •  ,3!2X.2E13.5.*;*),3X, 'PLASTIC  SLOPE*  .El  4. 5 

1  ) 

THETA! K.  1 . 5 ) =— T  HET  A ! K.l  ,2  ) 

THETA! K,  1 , 6 ) =— THET  A ! K • 1  .3) 

500  CONTINUE 

DO  501  M=1 , NBBT 

DO  501  K= 1 , 2 

PMC! M.K. 1  )  =  PMO!M,K,  1 ) 

PMC! M.K, 2)=PMO! M. K, 2) 

501  CONTINUE 


. 


RETURN 

END 

SUBROUTINE  ST I FF ( Q , I N I T . A . I A , I SHUT) 

COMMON  NS.NB.STF( 225) ,SH(25) ,SPR(  5).SB(  4),RP(25,  5).UDL(25,  4) 

* . IOP( 225, 2) . ION( 225, 2 ) . SLPLS( 225) . SLP( 225, 2, 5), BETA (22 5, 2. 7), 

1  THETA (22 5, 2,6),IMA(22  5.2).PM0(22  5.2.2). HXD(  2  5)  ,HNL( 25) 

2 ,  EML AST ( 225,2) , KOSS AN ( 22 5 ♦ 2 ) , I NEG( 225, 2 ) , IPOS( 225,2) , P MC ( 225 , 2 , 2 ) 

3 ,  ROTN (225 ) . ROT  MAX ( 22 5 ) , R CT M I N< 22 5 ) 

DIMENSION  A( 150 ,1 1 ) ,Q(25,25) 

I SHUT=0 

CALL  FUJKA.IA) 

N1=NB+ 1 
N2=NB+2 
N3=NB+3 
NE=2*NB+3 
DO  260  1=1, NS 
DO  250  J=1.N1 
I J=N2*< 1-1 )+J 
DO  240  K=l ,N2 
I K= I J+K 
N2S=N2*NS+1 

IF( IK  .GE.  N2S )  GO  TO  250 

NK=N2— K 

N3J=N3-J 

I F ( K  ,GE«  N3J )  NK=NK+1 

IF( ABS(A( IK.NK) )  .LT.  1.0E-30)  GO  TO  240 
IF( ABS(A( I J , N2 ) )  ,LT •  1.0E-30)  GO  TO  270 
A( IK,NK)=— A( IK,NK)/A( I J , N2 ) 

IF ( ABS( A( I K, NK) )  .LT.  1.0E2)  GO  TO  220 
WR I TE(6»210)  A ( I K , NK ) 

210  FORMAT (/I X, • WARNING  -  ACCURACY  LOSS  IN  CALCULATING  STIFFNESS  MATRI 
IX  -  MULTIPLIERS , E12.4) 

220  DO  230  L=N3,NE 
NL=NK+L-N2 

A(  IK, NL )  =  A{  IK  ,  NL ) + A (  IK,NK)*A{  IJ  ,L  ) 

230  CONTINUE 
240  CONTINUE 
250  CONTINUE 
260  CONTINUE 
GO  TO  290 
270  WRITE(6»  280 ) 

280  FORMATL/1X, 'DIVISION  BY  ZERO  WHEN  FINDING  STIFFNESS  MATRIX') 

I SHUT= 1 
RETURN 

290  CALL  YURI (Q.A.I A, INIT) 

RETURN 

END 

SUBROUTINE  FUJKA.IA) 

COMMON  NS. NB, STF( 225) ,SH( 25) , SPR(  5),SB(  4),RP(25,  5>.UDL(26,  4) 

* , I  OP ( 225.2) , ION ( 225,2), SLPLS(22  5) , SLP( 225.2, 5) , B  ET  A (  22  5.2.7)  , 

1  THE TA( 22  5,2  ,6),IMA(22  5,2),PMO(225,2,2),HXD(25),HNL<25) 

2, EMLAST( 225.2) , KO SS AN ( 2 2 5 , 2 ) , I NE G( 22 5 , 2 ) ,IP0S(225,2> , PMC ( 225 , 2 , 2 ) 

3 ,  ROTN (225 ) ,R0TMAX(225 ) »RGTMIN( 225) 

DIMENSION  A (  1  50 ,11) 

N1=NB+ 1 

N2=NB+2 

N3=NB+3 

NBB=2*NB+1 

NE=NBB+2 

DO  100  1=1. IA 


. 
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DO  90  J=1.NE 
A ( I , J)=0.0 
90  CONTINUE 
100  CONTINUE 

DO  260  1=1. NS 

DO  250  J=1,N2 

I J=N2*( 1-1 )+J 

IF(J  . EO •  N2)  GO  TO  200 

I F ( I  .EO.  1)  GO  TO  110 

MA=NBB*(  1-1  1-N1+J 

CALL  I ZU (VA,VB,MA,2,0.0,0.0, 1* 1 ) 

A(IJ,  1 )=VA 
A{ I J  ,N2)=VB 

110  I F ( J  .EQ.  1)  GO  TO  120 
ML=NBB* ( 1-1 )+J-l 
FR1=RP(I • J-l ) /SB( J-l ) 

FR2=RP( I . J)/SB( J-l ) 

CALL  IZU (VA.VB. ML  *2  »FR1 »FR2* 1 » 1  ) 

A  (  I J  »  N 1 )=VA 
A  (  I J  »  N2 )=A(  IJ,N2)+V8 
120  I F ( J  .EQ.  N1 )  GO  TO  130 
MR=NBe* ( 1-1 ) +J 
FR1 =RP ( I , J)/SB( J) 

FR2=RP( I • J+ 1 > /SB ( J ) 

CALL  I ZU ( VA, VB. MR . 1 , FR1 ,FR2. 1  *  1  ) 

A ( I J  *  N3 ) =V  B 
A  (  I  J  •  N2  )  =A  (  I  J  ,  N2  )  +  VA 
130  MB=NBB* I-Nl +J 

I F ( I  .EQ.  NS)  GO  TO  140 

CALL  I ZU ( VA, VB, MB , 1  ,0 .0 , 0 . 0, 1 , 1 ) 

A ( I J ,NE)=VB 

A(  I J, N2 )=A(  I  J ,N2 ) +VA 

GO  TO  250 

140  CALL  I ZU ( VA.VB, MB, 1 , 0  .0 ,0 .0,-1 ,  1  ) 

A(I  J,N2) =A( I J , N2  >  +VA 
GO  TO  250 
200  DO  220  K=1,N1 
KK=NBB* I -Nl+K 
KB=N1+K 

I F ( I  .EQ.  NS)  GO  TO  210 

CALL  IZU(VA,VB,KK,3,0.0,0.0,1 , 1 ) 

A ( I J •  K)=VA 
A ( I J , KB ) =VB 
GO  TO  220 

210  CALL  IZU( VA.VB, KK.3 ,0  .0 ,0 .0,-1,  1 ) 

A(I J,  K)=VA 
220  CONTINUE 

A ( I J, NE )=SH( I ) 

250  CONTINUE 
260  CONTINUE 
RETURN 
END 

SUBROUTINE  I ZU (VA,VB»M, II»FR1»FR2»IASHI.I GO ) 

COMMON  NS,NB,STF(225) , SH ( 25 ) ,SPR(  5),SB(  4),RP(25,  5),UDL<25*  4) 

* , IOP{ 22  5. 2) , ION( 22  5,2 ) ,  SLPLS( 225 ) , SLP( 225, 2, 5)  , B  ETA ( 225,2,7), 

1  THETA! 22  5, 2,6),  I M A( 225, 2 )  ,P MO<  225 , 2 , 2 )  ,HXD( 2  5)  , HNL ( 2  5) 

2 ,  EMLAST ( 22  5 ,2 )  . K0SSAN(22  5,2 )  , I NEGC22  5.2 ) , IPOSt  225, 2) ,PMC ( 225,2,2) 

3 ,  ROTN ( 22  5 )  , ROT MAX (22  5  ),RCTMIN(225) 

FR3  =  1  •  0  — FR 1 — FR2 

FRA=FR1 


' 
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FRB=FR2 

I F ( I GO  .LT.  0  .AND.  II  .EO.  1)  FRi=0.0 
I F ( I GO  .LT.  0  .AND.  II  .Ed.  2)  FR2=0.0 
I F (  I  ASH  I  .LT.  0)  J=M-(2*NB+1)*(NS-1)-N8 
I F ( I MA ( M , 1 )  .LE.  -1)  GO  TO  111 
ICON=I MA ( M  » 1 )  +1 

W=SLP(M, 1 , ICON) 

GO  TO  112 

111  I C0N=3— I M A ( M . 1 ) 

W=SLP( M. 1  , I  CON) 

112  IF( IMACM.2)  .LE.  -1)  GO  TO  113 
ICON= I MA ( M  *  2 )+l 

Y=SLP(M,2. ICON) 

GO  TO  120 

113  IC0N=3-IMA(M,2) 

Y=SLP( M. 2. ICON) 

120  IF ( ABS ( W )  .LT.  STF(M)  ,CR.  ABS(Y)  .LT.  STF< M  )  )  GO  TO  130 
I F ( W  .LT.  1.0E30  .AND.  Y  .LT.  1.0E30)  GO  TO  105 
BUN=ALOG( W )+ALOG( Y ) 

I F ( BUN  .LT.  150.0)  GO  TO  105 

DEN=1 . 04-2.  0*STF  (M)*(1.0/W+l.  0/Y) /FR3 

GO  TO  110  ' 

105  DEN=  1  . 0+2.0 *STF(M)*(  1  ,0/W  +  l  .  0 /Y  ) /FR3  4-3 . 0  *  (  STF  (  M  )  /FR3/ W  )  *  (  STF  (  M  )  /F  R 
1  3/Y ) 

110  IF (  I  ASH  I  .LT.  0)  GO  TO  125 

VC=(  1  .  04-3.0  *(FR1+FR2  )  /FR3  4-6 . 0  *FR  1  *FR2/FR3**  24-3 . 0  *STF  (  M  )  *  (  F  R1  /W4-FR2 
1/Y) /FR3**2+3 .0*FR  1 *F R2*STF ( M ) * (  1  .  O/W  +  l.  0/Y  )  /FR3**3  )  *STF(  M)  /FR3/DEN 
IF  (  I  I  .EQ.  2)  GO  TO  122 
VB=VC 

IF{  IGO  .LT.  0)  FR 1  =  FR  A 

VA=2 .04-3 . 0*FRl/FR3  +  3 .0*STF( M  )  *(  1  .0  +  FR  1/FR3)  /FR3/Y 
IF (IGO  .LT.  0)  GO  TO  121 

VA=VA+3 .0  *<  1  .0  +  2 .0  4FR1/FR3)  *FRl/FR3+3. 0*STF  (  M  )  *  (  (  1 . 0+FR1  /FR3  )  *FR.l/ 
1 FR3**2/Y+FR 1 **2/FR3**3/ W) 

121  VA=VA*STF(M)/FR3/DEN 
IF (II  .EQ.  1)  RETURN 
VA= VA+VC 

GO  TO  123 

122  VA=  VC 

I F ( IGO  .LT.  0)  FR2=FRB 

123  V  B=  2 . 0+3 •  0  *F  R2/FR  3+3 .0*STF(M) *  (  1 .  0 +  FR2/FP 3 > /FR3/W 
I F ( IGO  .LT.  0)  GO  TO  124 

VB= VB+3. 0*(  1 . 0+2.  0*FR2/FR3 ) *F R2/F R3  +  3 . 0  *STF ( M) * (  (1 .0  +  FR2/FR3 ) *FR2/ 
1 FR3**2/W+FR2**2/FR3**3/Y) 

124  V8=VB*STF( M 1/FR3/DEN 
I F (  I  I  .EQ.  2)  RETURN 
VB=  VB+ VC 

RETURN 

125  G  =  SPR( J) *DEN+STF (M)* ( 2. 0+ 3 . 0  *STF ( M ) / W ) 

VA=( 2  .0  +  3 . 0*STF ( M  ) /Y- STF ( M  ) /G ) *STF( M )/OEN 
I F (  I  I  .LE.  2)  RETURN 

I F ( SPR ( J )  .GT.  STF(M))  GO  TO  126 

VA=VA+SPR( J ) *STF( M ) / G 

RETURN 

126  G=DEN+STF (M >*( 2 .0+3 . 0 *STF( M ) /W >/SPR( J ) 

VA= VA  +  ST  F( M ) /G 

RETURN 

130  IF ( ABS( W  )  .LE.  STF ( M  )  )  GO  TO  140 

DEN=Y+2 .0*STF( M ) *( Y/W+l  .0  ) /FR3  +  3 . 0  * ( STF ( M  J/FR3/W ) *STF(  M) /FR3 
I F (  I  A  SH I  .LT.  0)  GO  TO  135 


' 
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VC=< Y*( 1  . 0  +  3.0 *( FR 1+FR2  )/FR3+6.0*FR 1 *FR2/FR3**2>  +3. 0*STF( M) * <  FR  1  * Y 
1 /W+FR2) /FR3**2+3. 0 *FR 1 *F R2 *  STF (M)*(Y/W+1.0)/FR3**3)*  STF ( M ) /F  R3/DEN 

I F ( II  .EQ.  2)  60  TO  132 
VB=VC 

I F (  I G  O  .LT.  0)  F  R 1 =F  R A 

VA=Y* ( 2 .0  +  3 .0  *FR1/FR3 )+3 .0*STF(M)*{1 • 0  +FR 1/FR3)/FR3 
I F ( I CO  .LT.  0)  GO  TO  131 

VA  =  VA+3. 0*Y*(  1  . C+2.0*FR1/FR3> *FR 1/FR3+3 . 0 *STF { M ) * ( ( 1 . 0  +  FR 1/FR3 )*FR 
1 1 /FR3**2+Y*FR 1  * * 2/FR3**3/ W ) 

131  VA=VA*STF( M)/FR3/DEN 
IF (  I  I  .EQ.  1)  RETURN 

V  A=VA+VC 
GO  TO  133 

132  VA=VC 

I F ( I GO  .LT.  0)  FR2=FRB 

133  VB=Y*(2.0+3.0*FR2/FP3+3.0*STF(M)*< 1 . 0 +FR2/FR3) /FR3/W ) 

1 F ( I GO  .LT.  0)  GO  TO  134 

VB=VB+3 . 0  *y*(  1  .0+2. 0  *FR  2/FR3 ) AFR 2/FR3+ 3 . 0 *STF ( M) *( Y* ( i . 0+FR2/FR3) * 
1FR2/FR3**2/W+FR2**2/FR3**3 ) 

134  VB=VB*STF( M1/FR3/DEN 
IF (  I  I  .EQ.  2)  RETURN 
VB=VB+VC 

RETURN 

135  G=  SPR ( J ) *DEN+Y*STF( M) *C2 .0  +  3 . 0*STF (M )/W ) 

VA=(2.0*Y+3.0  *STF ( M ) - Y* *2 *STF (M)/G)*STF(M) /DEN 
I F (  I  I  ,LE.  2 )  RETURN 

I F ( SP R ( J )  .GT.  STF (  M  )  )  GO  TO  136 

VA=VA+SPR( J) *Y*STF(M)/G 

RETURN 

136  G=DEN+Y*STF (M  )*(2  .0  +  3.0*STF( M)/W )/SPR( J  ) 

VA=VA+Y*STF(M  )/G 

RETURN 

140  IF(ABS(Y)  .LE.  STF ( M ) )  GO  TO  150 

DEN= W  +  2 . 0*STF (M )*(  1 .0+W/Y )/FR3+3. 0  * ( STF ( M ) /FR3) * ( STF ( M ) /FR3/ Y ) 

I F (  I  ASH I  .LT.  0)  GO  TO  145 

VC=( W*( 1 . 0+3.0* (FR1+FR2 ) /FR3+6 . 0 *FR 1 4 FR2/FR 3 ** 2 ) +3 . 0 *STF ( M ) * ( FR 1 +F 
1 R2*W/Y ) /FR3**2+3. 0*FR 1*FR2*STF( M) *( 1 . 0+ W/ Y > /FR3* * 3 ) * STF ( M ) /F R3/DEN 
I F (  I  I  . EQ.  2)  GO  TO  142 
VB=VC 

I F (  I GO  .LT.  0)  F  R 1 =F  R A 

VA=W*< 2 • 0+3 . 0  *FR 1 /FR  3  +  3 •  0  *STF ( M ) * (  1 . 0  +  FRl /FR3) /FR3/Y ) 

I F (  I  GO  .LT.  0)  GO  TO  141 

VA=VA+3. 0*W*( 1 . 0+2 . 0*FR1/FR3 ) *FR 1/FR3+3 .0 *STF< M ) *( W*( 1 . 0+FR1/FR3)* 
1 FR1 /FR3**2/Y  +FR1 **2/FR3**3 ) 

141  VA= VA+STF (M)/FR3/0EN 
I F ( I  I  .EQ.  1  >  RETURN 
VA= VA+VC 

GO  TO  143 

142  V  A=  VC 

IF( IGO  .LT.  0)  FR2=FRB 

143  VB=W*  <2  .0+3 . 0  +FR2/F  R3 )  +  3 .0*STF(M)*(1.0+FR2/FR3)/FR3 
I F ( I GO  .LT.  0)  GO  TO  144 

VB=VB+3.0*W*(  1  .0  +  2.0*FR2/FR3)  *FR2/FR3+3 . 0  *STF  (  M  )  *  (  (  1 . 0+FR2/F  R  3  >  *FR 
1 2/FR3**2+W* FR2**2/FR3**3/Y) 

144  V8=VB*STF( M)/FR3/DEN 
I F (  I  I  .EQ.  2)  RETURN 

V  B= V  B  + VC 
RETURN 

G=SPR( J) +DEN+STF (Ml* (2. 0* W+3 . 0*STF ( M ) ) 

VA=W* ( 2.0  +  3 . 0*STF ( M ) /Y- W* STF ( M ) /G ) *STF<  M )/0EN 


145 
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IF<  I  I  .  LE.  2)  RETURN 
I F ( SPR (  J  )  .GT.  STF(M))  GO  TO  146 
VA=VA+SPR< J  )*W*STF(M)/G 
RETURN 

146  G=DEN+STF(M)*(2.0*W+3.0*STF<M) )/SPR(  J) 

VA=VA+W*STF(M)/G 

RETURN 

150  DEN=W*Y+2 .0  *STF(  M)*(  W+Y  )/FR3  +  3 . 0  * ( STF<  M  )  /FR3  )**2 
I F {  I  ASH I  .LT.  0)  GO  TO  155 

VC= ( W*Y*<  1  .0  +  3. 0  *(FR 1+FR2 )/FR3+6 .0*FR1 *FR2/FR3**2 ) + 3 . 0 *STF ( M ) *  (  FR1 
1 *Y+FR2*W ) /FR 3 **2  +  3.0  *FR1*FR2*STF(M)*(W+Y)/FR3**3)*STF(M) /FR3/DEN 
IF ( I  I  . EQ.  2)  GO  TO  152 
VB=  VC 

IF(  IGO  .LT.  0)  FR1=FRA 

VA=W*(Y*{ 2.0+3.0*FRl/FR3)+3.0*STF(M)*( 1 . 0+FR 1/FR3) /FR3 ) 

I F (  I  GO  .LT.  0)  GO  TO  151 

V  A=  V  A+3 . 0  * W*  Y  * (  1  .0  +  2 .  0*F R 1 /F R3 ) *FR 1/FR3+ 3. 0 *STF ( M>* ( W* (  1 . 0+FR1/FR3 
1 )*FR1/FR3**2+Y*FR1**2/FR3**3> 

151  VA=VA*STF( MJ/FR3/0EN 
I F ( I  I  .EQ.  1)  RETURN 
VA=VA  +  VC 

GO  TO  153 

152  VA=  VC 

IF ( IGO  .LT.  0)  FR2=FRB 

1 53  VB=Y* (W*( 2  .0+3 .0*FR2/FR3 ) +3.0*STF( M )* (  1 . 0+F R 2/FR3 ) /F R3 ) 

I F ( I  GO  .LT.  0)  GO  TO  154 

VB= V8+3 • 0  *W  * Y* (  1  .0+2 .0*FR2/FR3 ) *FR2/FR3  +  3.0 *STF ( M )*( Y*(  1.0+FR2/FP3 
1 ) *FR2/FR3**2+W*FR2**2/FR3**3 ) 

154  VB= V  B*  ST  F ( M ) /FR3/ DEN 
I F ( I  I  .EQ.  2 )  RETURN 

_V8=V3+VC. 

RETURN 

155  G=SPR( J ) *OEN+Y*STF(M )*( 2 . 0 * W+3 . 0 *STF ( M ) ) 

VA=W* ( 2. 0*Y+3. 0*STF( M  )- W*Y * *2 *S TF ( M ) /G ) *STF ( M ) /DEN 

I F (  I  I  .LE.  2)  RETURN 

I F ( SPR ( J )  .GT.  STF(M))  GO  TO  156 

VA=VA  +  SPR( J ) *W*Y*STF( M) /G 

RETURN 

156  G=OEN+Y*STF(M)*(2.0*W+3.0*STF(M)  >/SPR(J> 

VA=VA+W*Y*STF( M)/G 

RETURN  .  , 

END 

SUBROUTINE  YURI  C 0 . A I . I  A .  I N  I  T ) 

COMMON  NS.NB. STF{ 225) ,SH( 25) ♦ SPR<  5).SB(  4),RP(25.  5).UDL<25.  4> 

* ,1 OP(  22  5. 2)  . ION( 225,2 ) , SLPLSI 22  5 ) ,SLP( 225, 2. 5)  «  B ET A (  225. 2.7) . 
1THETAI22  5.2 .6)  .  IMA(22  5.  2)  , PMO ( 225. 2 , 2 )  , HXD(  2  5)  ,HNL(25) 

2 .  EMLAST ( 225,2) . K CSS AN ( 2 2 5 , 2 ) , I NEG ( 22 5 . 2 ) . I PO S ( 22 5 , 2 ) . PMC ( 225 . 2 , 2 ) 

3,  ROTN (225), ROT MAXI  225). ROTMINC 225) 

DIMENSION  SXDC25)  ,Q(25,25)  ,AI(  150,11  )»BH(  150)  ,BB(  150)  , QTE  M( 25) 

I F ( I N I T  .NE.  0)  GO  TO  130 
DO  100  1=1, NS 
SXD (  I  )  =  0  .0 
100  CONTINUE 

DO  110  J  =  1 . I A 
BB ( J)=B( J.SXD) 

110  CONTINUE 

CALL  SOLVE  (AI.BB.QTEM) 

DO  120  1=1, NS 
HNL ( I ) =QT  EM (  I  ) 

120  CONTINUE 


■ 


. 


130  DO  140  1=1. NS 
SXD ( I ) =HXD( I ) 

140  CONTINUE 

DO  150  1=1, IA 

BH( I )=B( I, SXD) 

150  CONTINUE 

DO  180  1=1, NS 
SXD ( I ) =HXD( I ) +1 .0 
DO  160  K= 1 , I A 
BBC  K)=B( K.SXD  )  —  BH(K ) 

160  CONTINUE 

CALL  SOLVE  (AI.BB.OTEM) 

DO  170  J= 1 , N  S 
QC  J, I )  =  QTEM(J ) 

170  CONTINUE 

SXD ( I ) =HXD( I ) 

180  CONTINUE 
RETURN 
END 

FUNCTION  BCIJ.SXD) 

COMMON  NS.N3.STFC225) ,SH(25) ,SPR(  5), SBC  4),RPC25,  5).UDLC25,  4) 

*  » I O  P  C  22  5*2),I0NC  225,2),  SLPLS C 22 5 ) , SLPC  225 . 2 ,  5 ) , BET  A  C 225,2,7), 

IT HE  TAC  22  5,2 ,6)  , I  MAC  22  5, 2)  , PMO C  2 2 5 , 2 .2 )  ,HXD( 25)  ,HNL(25) 

2  ,  EMLASTC  22  5,2),K0SSANC225,2),lNEGC22  5,2),IPOSC  225,2),PMCC22  5,2,2) 
3 , ROTNC22  5 ) , ROT MAX  C22  5 ) ,R0TMINC225) 

DIMENSION  SXD  C  2  5 ) 

B=0 .0 
NBi=NB+l 
NB2=NB+2 
I  =  C  I J- 1  )/NB2+l 
J=I J-NB24C 1-1 ) 

IFCJ  • EG,  NB2 )  GO  TO  200 
IFCI  .EC.  1)  GO  TO  110 
MA=C2*NB-H  ) *  C  1-1  l-NBl+J 
S=  S H C  I-  1  ) 

R=CSXDC  1-1  ) —SXD  C  I  )  )/SHC 1-1 ) 

B=UHENC  MA  ,S,2,0.0.R,  0.0, 0.0,1 ,1  ) 

110  IFCJ  .EG.  1)  GO  TO  120 
KL=C2*NB+1  )  4=  (  I  —  1  )+J-l 
FR1=RPCI  ,  J— 1 ) /SB  C  J— 1  ) 

FR2  =  RPC  I , J )/SBC  J-l ) 

UL=UDL< I , J-l  ) 

S=S  B  C  J— 1  ) 

B=  B  +  UHEN  CML,S,2,UL,0.0,FR1 ,FR2» 1, 1 ) 

120  IFCJ  .EQ.  NB1  )  GO  TO  130 
MR=  C  2*NB+1  )  *C  1-1  )  +  J 
FR1=RPC I ,J)/SBC J) 

FR2  =  RPCI  .J+D/SBCJ) 

UL=UDL  C  I , J ) 

S=SBC  J ) 

B  =  B  +  UHE  NCMR»S»1  ,UL,0,0,FR1,FR2,1  *1  ) 

130  MB= C 2*NB+1 ) * I-NB1+J 
S=SHC I ) 

IFCI  .EG.  NS)  GO  TO  140 
R=  C  SXDC  I  )  — SXDC  I  +  1  )  )/SHC  I  ) 

B=  B+UHENC MB.S.l  , 0.0, R, 0.0, 0.0, 1 ,  1) 

RETURN 

140  R=SXDC NS)/SHC NS ) 

B=B  +  UHEN{ MB, S, 1  ,0 .0 ,R  ,0 .0,0 .0,—  1  , 1 ) 

RETURN 


216 


200  DO  220  K=1,NB1 

KK=(2*NB+1  )*l-NBl+K 
S=SH( I ) 

I F ( I  .EO.  NS)  GO  TO  210 
R  = ( SXD ( I ) — SXD ( 1+1 ) )/SH( I ) 

B=B+UHEN( KK.S.3,0 .0 ,R .0 .0,0 .0. 1 , 1 ) 

GO  TO  220 

210  R=SXD(NS)/SH(NS) 

B=B+UHEN(  KK»S,3,0.0»R,0  .0.0.0,  —  1,1) 

220  CONTINUE 
RETURN 
END 

FUNCTION  UHENCM.S.II  , UL,R,FR1  ,FR2,IASHI  , I  GO ) 

COMMON  NS,NB,STF(225) ,SH(25) , SPR(  5),SB(  4),RP<25,  5).UDL<25.  4) 

* , IOP(  22  5, 2) , I  ON (22  5. 2) ,  SLPLS( 225) . SLP( 22  5,2 , 5)  ,BETA( 225,2 ,7)  , 

1 THET A{ 225. 2.6),IMA(225,2),PM0(225,2,2),HXD(25) ,HNL( 25) 

2, EMLAST ( 225,2)  »KCSSAN(225.2),  INEG(225,2), IPOS( 22  5.2) , P  MC ( 225, 2,2) 
3 • ROTN (225 ) , ROT MAX (22 5) , POT MIN (225) 

UHEN=0 • 0 
FR3=l .0-FRI-FR2 

I F (  I  GO  .LT.  0  .AND.  II  .E0.1)  FP1  =  0.0 
IF(  IGO  .LT.  0  .AND.  II  .E0.2)  FR2=0.0 
FEMD=UL*( FR3*S ) **2/12.0 
FE  MC=— FEMD 

AFC=— 0 . 5*UL*FR1 *( 1 .0-FR  2 ) *S**2 


i  GE.  CER)  GO  TO  1 12 


AFD=0 .5*UL*FR2* ( 1  .0-FR1  )*S**2 
I F (  I  ASH  I  .LT.  0)  J  =  M-(2*NB+ 1 > * (NS-1  )~NB 
CER=2.01*STF( M) 

IF(IMA(M,1)  .LE.  -1)  GO  TO  111 
ICON=I MA( M, 1 )+l 
W=SLP( M. 1  .  ICON) 

IF  (  I  MA(  M  ,  1  )  .EO.  0  .AND.  1 
X=BETA( M, 1 , ICON ) 

GO  TO  112 

111  I C0N=3— I M A ( M , 1 ) 

W=SLP( M. 1 , ICON) 

X=  BET  A ( M » 1 ,  ICON  ) 

112  I F ( I MA ( M . 2 )  .LE.  -1)  GO  TO  113 
IC0N=IMA(M,2)+1 
Y=SLP( M , 2  » ICON) 

IF ( I MA( M. 2 )  .EQ.  0  .AND.  ' 

Z=BETA( M.2. ICON ) 

GO  TO  115 

113  I C  0N=3— I MA( M, 2) 


GE.  CER)  GO  TO  115 


Y=SLP( M,2 , ICON) 

Z=BET  AIM, 2, ICON) 

115  CER=  2 . 0*  STF ( M ) 

I F ( ABS ( W )  .LT.  STF(M)  .OR.  ABS(Y)  .LT.  STF ( M ) )  GO  TO  130 
I F ( W  .LT.  1.0E30  .AND.  Y  .LT.  1.0E30)  GO  TO  105 
BUN=  ALOG ( W ) + ALO  G ( Y ) 

I F ( BUN  .LT.  150.0)  GO  TO  105 

DEN=1 . 0+2. 0  *STF ( M  )  * ( 1  .O/W  +  l  . 0/Y )/FR3 

GO  TO  110 

105  DEN=1.0+2. 0*STF (M)*( 1 .O/W+l . 0/Y )/FR3+3. 0*(STF(M) /FR3/W) * ( STF ( M) /FR 
1  3/Y  ) 

110  I F ( I MA ( M .  1  )  .EQ.  0  .AND.  W  .GE.  CER)  GO  TO  116 
XOW=X/W 


GO  TO  117 
116  I P= I  OP ( M . 1  ) 
XOW=PMO ( M, 1 


1  ) / W— THET A(  M.  1  ,  I  P) 


. 
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117  IF(IMACM.2>  .EQ.  0  .AND.  Y  .GE.  CER)  GO  TO  118 
ZOY=Z/Y 

GO  TO  120 

118  I P= I OP ( M • 2 ) 

ZOY=PMO(M.2.1 ) /Y-THETA(  M.2.  IP) 

120  I F (  I  ASH  1  .LT.  0)  GO  TO  125 
IF (  I  I  .EQ.  2 )  GO  TO  121 
VD=3. 0*< 1 .0+STF(M)/Y)*R 

VD=VD-( 2 .0+3 .0*FR1/FR3+3.0*STF(M)*(1.0+FR1/FR3 1/FR3/Y ) *XOW 
VD=  VD—  (  1 . 0  +  3 .0*FRl/FR3+3 .0  *STF(M)  *FR1/FR3** 2/W  )*ZOY 
VD=VD*STF(M)/FR3 

UHEN=<  VD-FEMC*( 1.0+3 .0*STF (M ) *( 1 .0+FR 1/FR 3) /FR3/Y-3. 0*STF( M) *FR1 /F 
1R3**2/W) 1 /DEN— AFC 
IFCII  .EQ.  1)  RETURN 

121  VD=3.0*(1  .0  +  STF(M)/W»*R 

VD=VD— ( 1 . 0+3.0 4FR2/FR3+3 . 0 *STF ( M ) * F R2/F R3** 2/Y ) *XOW 
VD=VD— ( 2 . 0+3. 0*FR2/FR3+3. 0*STF(M )*{  1 .0+FR2/FR3 1/FR3/W ) *ZOY 
VD= VD*STF( M )/FR3 

UHEN=UHEN+( VD-FEMD*( 1  .0 +3 . 0 *STF ( M ) * (  1 .0  +  FR2/FR3) /FR 3/ W-3 . 0* STF ( M ) * 
1 FR2/FR3**2/Y) )/DEN-AFD 
RETURN 

125  G=SPR( J) 4DEN+STF (M)*(2. 0+3. 0*STF (M)/W) 

VD=3.0*<  1  • 0  +  STF (M)/Y  — STF( M) *  (  1 .0  +  STF (M)/W )/G) *R 
VD=VD-(2.0+STF(M)*(3.0/Y-l  .0/G)  )*XOW 

VD  =  VD— ( 1 . O-STFCM  )*( 2  . 0+3 . 0 *STF ( M ) / W ) /G ) *ZOY 
UHE  N= VD*STF ( M) /DEN 
IF ( I  I  ,LE.  2)  RETURN 

V D=3 .  0*(  1  .0  +  STF <  M  )/W ) *R-XOW-( 2 .0+3.0*STF( M )/W ) *ZOY 
IF ( SPR ( J )  .GT.  STF ( M ) )  GO  TO  126 
UHEN=UHEN+ VD*STF ( V) *SPR ( J  >/G 
RETURN 

126  G=DEN+STF(M )*(2 ,0+3.0*STF(M )/W)/SPR( J) 

UHEN=UHEN+VD*STF ( M)/G 

RETURN 

130  I F ( A BS ( W )  .LE.  STF ( M ) )  GO  TO  140 

DEN=Y+2. 0  *  STF (M)*(Y/W+1  .0  ) /FR3  +  3 . 0  * ( STF ( M J/FR3/W ) *STF( M)/FR3 
I F (  I M  A ( M  •  1  )  .EQ.  0  .AND.  W  .GE.  CER)  GO  TO  132 

xow=x/w 

GO  TO  133 

132  I  P= I OP  <  M  »  1  ) 

XOW  =  PMO (M . 1,1) / W— THET  A ( M, 1  ,IP) 

133  I F (  I  ASH  I  .LT.  0)  GO  TO  135 
IF (  I  I  .EQ.  2)  GO  TO  131 
VD=3. 0* ( Y+STF (  M)  )*P 

VD=VD— < Y* ( 2 .0+3 .0  *FR 1/FR3 )+3 . 0*STF<  M )*(  1 . O  +  FR 1 /FR 3 ) /FR3 ) * XOW 
VD=  VD  — ( 1  . 0+3 .0*FRi/FR3+3 . 0*STF{ M ) *F R1 /F R 3** 2/W ) * Z 
VD=VD*STF( M )/FR3 

UHEN= (VD— FEMC*( Y  +  3  »  0  *  ST  F  (  M  )  *(  1 . 0  +  FR 1/FR 3) /FR 3-3. 0*Y*STF( M)*FRl/FR3 
1**2/W) ) /DEN— AFC 
IF (  II  .EQ .  1  )  RETURN 

131  VD=3. 0*Y* ( 1 .0 +STF ( M )/W ) *R 

VD= VD— ( Y* C l  • 0  +  3. 0*FR2/FR3 ) +3 . 0  *STF ( M ) *FR2/FR3**2 ) 4X0 W 
VD= VD— (2.0  +  3.0  *FR  2/F  R3+3 .0*STF(M)*(  1  • 0  +FR2/FR3 )/ FP3/W ) *Z 
VD=VD*STF( MI/FR3 

UHEN=UHE  N  +  { V  D— F  EM  D* (  Y*(  1. 0  +  3.0* STF(M)*(  1. 0+  FR2/FR3 ) /FR3/W)— 3 . 0*STF 
1  (M)*FR2/FR3**2)  )/ DEN— AF  D 
RETURN 

135  G=SPR (J) *DEN+Y*STF(M)  *( 2 .0  +  3. 0*STF ( M )/W ) 

V D=3 • 0*( Y  +  STF( M  )— Y**2  *ST  F ( M ) * (  1  • 0  +  ST  F(M)/W)/G) *R 
VD=VD-<  2.0*Y  +  STF(M)*(3.0-Y**2/G)  )  *XOW 


- 


VD=VD— <1 .0-Y4STF(M) 4( 2 . 0 +3 . 0 4  STF ( M ) / W ) /G ) *Z 
UHEN=VD4STF(M) /DEN 
I F (  I  I  ,LE.  2 )  RETURN 

VD=3. 04Y4{  1  .  0  +  STF  (  M  )/W)  4R-Y4X0W-(  2.0+3.  0  4STF  (M  )/W)*Z 
IF(SPR(J)  ,GT.  STF ( M ) )  GO  TO  136 
UHEN=UHEN+VD*STF ( M) 4SPR ( J )/G 
RETURN 

136  G=DEN+Y*STF(M )4( 2  .0+3 .0«STF{ M)/W )/SPR( J  > 

UHEN=UHEN+VD*STF( M)/G 
RETURN 

140  IF(ABSCY)  .LE.  STF(M))  GO  TO  150 

DEN=W+2.0*STF( M  )4(  1  .O+W/Y ) /FR3+3 . 0 4 ( STF ( M ) /F  R3 ) 4 (STF ( M) /FR3/Y) 

I F (  I MA( M  *  2  )  .EQ.  0  .AND.  Y  .GE.  CER)  GO  TO  142 

ZOY=Z/Y 

GO  TO  143 

142  I P= I  OP ( M  *  2 ) 

Z0Y=PM0(M.2, 1 )/Y-THETA( M.2. IP) 

143  I F (  I A SH I  .LT.  0)  GO  TO  145 
I F(  I  I  .EQ.  2 )  GO  TO  141 
VD=3.04W4(  1  •  0  +  STF (M )/Y) 4R 

VD=VD-( 2 • 0+3 .0*FR1/F  R3  +  3 .04STF(M)4( 1  . O+FR 1 /FR3 ) /FR3/Y ) *X 
VD=VD-(  W4  (  1  .0  +  3.0  4FR1/FR3  ) +3 . 04 STF ( M ) 4FR1/FP3442 )4Z0Y 
VD=VD4STF( M )/FR3 

UHEN=( VD-FEMC*( W4(  1  .0+3 . 0*STF (M ) 4( 1 . 0  +  FR1/FR3) /FR 3/ Y ) - 3 . 0*STF ( M ) *F 
1 R1/FR3442 ) )/ DEN- AFC 
I F (  I  I  .EO.  1)  RETURN 

141  VD=3.0*( W+STF(M) ) 4R 

VD=VO-r(  1  .0  +  3.0  4  FR2/F  R3+3 . 04STF{  M  )4FR  2/F  R  3*4  2/Y  )  4  X 

VD  =  VD-( W4 (2.0+3 . 04FR2/FR3 )+3 • 0*  STF ( M ) * (  1 . 0 +FR2/FR3 ) / FR3 ) 4ZOY 

VD=VD4STF( M  J/FR3 

UHEN=UHEN+( VD-FEMD4 ( W +3 .04  STF ( M ) 4 ( 1 . 0  +  FR2/FR 3 ) /F R3-3 . 0 4 W4 STF ( M) 4FR 
1 2/FR3  4  *2/Y )  ) /DEN-AFD 
RETURN 

145  G=SPR(J)4DEN+STF(M)4(2. C4W+3 • 04STF ( M ) ) 

VD=3. 04 ( W4 (  1 . 0  +  STF ( M ) /Y )  —  W  4  STF ( M ) 4 ( W  +  ST  F( M )  )/G  )4R 
VD  =  VD— ( 2 .0  +  STF( M  >4(3 .0/Y-W/G )  )4X 

VD=VD-W4  ( 1 . 0  — ST  F ( M)4(2.04W+3. 0  4STF(M )  )/G) 4ZOY 
UHEN=VD4STF( M )/DEN 
IF(  I  I  .LE.  2)  RETURN 

VD=3.04( W+STF(M) ) 4 R-X— ( 2 . 0 4W+3 . 0 4STF ( M ) ) 4Z0Y 
I F ( SPR ( J )  .GT.  STF(M))  GO  TO  146 
UHEN=UHEN+VD4STF ( M)4SPR( J )/G 
RETURN 

146  G=DEN+STF (M ) 4 ( 2 . 0 4W  +  3 .0 4STF ( M ) >/SPR(  J) 

UHE  N=UHE  N+  VD*  STF (M)/G 

RETURN 

150  DEN=W4Y  +  2 .0  4STF( M )4( W+Y  )/FR3  +  3.04(STF(M) /FR 3 )442 
I F ( I  ASH  I  .LT.  0)  GO  TO  155 

I F (  II  .EQ.  2 )  GO  TO  151 
VD=3.04W4(Y+STF(M ) )4R 

VD  =  VD-(Y4(2.0+3.04FR1/FR3)+3.04STF(M)4(  1 ,0  +  FRl/FR3)/FR3)4X 
VD  =  VD-( W4(  1  .0+3 .0  4FR1/FR3  )  +  3 . 0  4  ST  F ( M )4FR1/FR3##2 ) *Z 
VD=VD4STF ( M )/FR3 

UHEN=( VD-FEMC4 ( W4 Y+3 .04W4STF(M) 4( l . O+FR 1 /FR 3 ) /FR3-3 . 04Y4STF( M ) 4FR 1 
1 /FR3442 ) )/DEN— AFC 
IF (  I  I  .EQ.  1 )  RETURN 

151  VD=3.04Y4( W+STF(M ) )*R 

VD=VD-( Y4 (  1  .0  +  3 . 0  4FR2/FR3 )+3.04STF(M)4FR2/FR344  2)4X 

VO= VD-(W*(  2.0  +  3.0  4FR2/FR3)+3.0  4STF(M)4(  1  • 0  +  FR2/F  R3J/FR3) *Z 

VD= VD4  STF ( M )/FR3 


- 
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UHEN=UHE  N+( VD-FEMD* ( W*Y+3  .0 *Y*STF ( M ) * ( 1 .  0+FR2/FR3  ) /FP3-3. 0*W*  STF  (  M 
1 ) *FR2/FR3**2) )/OEN-AFO 
RETURN 

1 55  G=SPR( J ) *DEN+Y*STF( M )  *(  2 . 0  *W  +  3 . 0 *STF ( M ) ) 

VD  =  3. 0* ( W*(  Y+STF( M  )  )-Y4*2  *W*STF( M ) *( W+STF(M )  )/G>  *R 
VD=VD-( 2 .0*Y+STF(M)O(3. 0-W*Y**2/G) )*X 
VD=VD-W* ( 1 . 0-Y4STF (  M)  *(  2. 0+W+3. 0*STF(M) )/G) *Z 
UHEN=VD*STF( M )/DEN 
IF (  1  I  .LE.  2)  RETURN 

VO=3. 0*Y*(  W+  STF ( M )  ) * R-X* Y- ( 2 . 0 * W+3 . 0 *STF ( M )  )  *Z 
I F ( SPR ( J )  . GT .  STF (  M  )  )  GO  TO  156 

UHEN=UHEN+VD*STF(M)*SPR( J )/G 
RETURN 

156  G=DEN+Y*STF(M)*(2.0*W+3.0*STF(M) )/SPR(J) 

UHEN=UHE N  +  VO *  STF (  M)/G 

RETURN 

END 

SUBROUTINE  SOLVE(A.W.C) 

COMMON  NS,NB, STF( 225) . SH(25 ) , SPR(  5),S3(  4).RP(25,  5).UDL(25.  4) 

*. IOP( 22  5 .2)  * ION(  225.2 ) ,  SLPLS ( 225 ) .  SL Pi  225 . 2 , 5 ) . BE T A ( 22 5 , 2 . 7 )  , 

1  THETA ( 22  5,2 ,6)  , IMA ( 22  5. 2)  , PM0(22  5,2 .2)  ,HXD( 25)  ,HNL(25> 

2 • EML AST ( 225.2) , K OSS AN ( 2 2 5 , 2 ) , I N EG ( 22 5 , 2 ) , I PO S ( 22 5 . 2 ) , PMC (225, 2. 2 ) 

3 , ROTN (225) , ROT M AX ( 22 5 ) , R OT M I N ( 22 5 ) 

DIMENSION  A(  150 . 1 l )  ,  W  (  1  50 ) , C(25) 

N1=NB+1 
N2=NB+2 
N3=NB+3 
NE=2*NB+3 
DO  300  1=1, NS 
DO  290  J=1,N2 
I J=N2*( 1-1 )+J 
K1=I J^N2 

I F ( J  •  EO  *  N2 )  Kl  =  Kl+l 

K2=K1 +N1 

I F ( I  .EO.  1  .AND,  J  .LE.  N1 )  GO  TO  240 

M=0 

L=0 

LS=N3— J 

I F ( J  .EQ.  N2>  LS=N2 
DO  230  K=K 1 , K2 
L=L+  1 

I F ( L  .EO.  LS)  GO  TO  230 
M=M+  1 

W(IJ)=W(I J)+A(IJ,M)*W(K) 

230  CONTINUE 
GO  TO  290 

240  I F ( J  .EO.  1)  GO  TO  290 

W( J)=W( J )+A( J. N1 )*W ( J-l ) 

290  CONTINUE 
300  CONTINUE 

DO  500  I  1=1  . NS 
I=NS-I I +1 
DO  490  J  J= 1 • N2 
J=N3— J J 
I J=N2*( I-ll+J 


I F (  I  .EQ. 

K1=I J+l 

NS) 

GO 

TO 

450 

I F ( J  .EO. 

N  2  ) 

GO 

TO 

440 

K2=I J+N2 
L=N2 


. 


, 
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M=N2 

LS=NE— J+l 
DO  430  K=K1 ,K2 
L=L  -f  1 

I F  ( L  .EC.  LS)  GO  TO  430 
M=M+1 

W(IJ)=W(IJ)-A(IJ,M)*tf(K) 

430  CONTINUE 

W(IJ)=W(IJ)/A<IJ,N2) 

GO  TO  400 
440  K2=IJ  +  M 
L=N1 

DO  445  K=K1,K2 
L=L+1 

W(  I J)=W(  I J  )  — A ( I J,L)*W(K) 

445  CONTINUE 
GO  TO  480 

450  I F { J  .EQ.  N2 )  GO  TO  480 
K1=I J+l 
K2=I J+Nl-J 

I F( J  .EQ.  N1  )  GO  TO  470 
L=N2 

DO  460  K=K1 ,K2 
L=L+1 

W(IJ)=W(IJ)-A(IJ.L)*W(K) 

460  CONTINUE 

470  W(I J)=WCI J)/A(IJ.N2) 

GO  TO  490 

480  W< I J )=W( IJ )/A< I J.NE) 

C(I )=W( I J) 

490  CONTINUE 
500  CONTINUE 
RETURN 
END 

SUBROUTINE  SHU K I ( 0 . SM ,G OME ) 

COMMON  NS.NB. STF(225) ,SH( 25) , SPR(  5),SB(  4),RP(25,  5>,UDL(25,  4) 

* ,1 OP( 22  5,2) , ION( 225, 2 ) , SLPLSC  225) , SLP< 225.2 , 5)  . BET A (  225.2.7). 
ITHETA(225.2.6).IMA(22  5.2), PMO(225.2 ,2 )  . HX  D ( 2  5 )  . HNL (25) 

2 .  EML AST (  22  5,2)  , KOSS AN< 2  25 , 2 ) , I N EG ( 225 , 2 ) » I PO S ( 225 , 2 )  , PMC ( 225.2.2) 

3, R0TN( 225) , R0TMAX(225),R0TMIN(225) 

DIMENSION  SM ( 25 ) ,Y( 25) , YY( 25 ) ,H( 25, 25) ,HH( 25.25) ,C( 25,25) ,D( 25,25) 
1,Z(25) .0(25.25) 

N=NS 

P I  =3 . 141593 
I F ( N  .EQ.  1 )  GO  TO  210 
DO  110  1=1. N 
00  100  J=1 .N 
C( I . J)=Q( I. J) 

D ( I  ,J)=SM( J) 

IF ( J  .GT.  I)  D(I,J)=0.0 
100  CONTINUE 
1 1 0  CONTINUE 

CALL  TOKYOl  (N.C) 

DO  1 40  I =1 .N 
DO  140  K=  1  *  N 

ABC=0 .0 

DO  150  J=1.N 

ABC=  ABC  +  C ( I  ,  J  >*D<  J.K ) 

150  CONTINUE 

HH ( I  • K ) =  ABC 


- 
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H  (  I  »  K )  =  ABC 
140  CONTINUE 
KK=  0 
NA=N 

10  DO  20  1=1, NA 
Y(I)=1.0 
20  CONTINUE 
KK=KK+1 
KA=2*(KK/2) 

I F ( KK  .EQ.  KA)  Y(NA)=-1.0 
B=0. 000001 
40  DO  50  1=1, NA 
YY (  I )  =  0 . 0 
DO  60  J= l , NA 
YY ( I )=YY(  I  >+H<  I , J)*Y( J> 

60  CONTINUE 

IF(  I  .EQ.  1  )  A=YY( I  ) 

50  CONTINUE 

I F ( AB S ( A )  .GT.  10.0E-15)  GO  TO  56 
DO  55  1=1, NA 
Y (  I  )=Y(  I  ) +FLO AT ( I  > 

55  CONTINUE 
GO  TO  40 

56  DO  70  1=1, NA 
Y ( I  ) =YY ( I  )/ A 

70  CONTINUE 
S=A/B 
B=A 

IFCS  .GT.  1  .00001  )  GO  TO  40 
IFCS  .LT.  0.99999)  GO  TO  40 


I F  (  KK 

.EQ 

.  KA) 

GO 

TO 

75 

AA=A 

DO  71 

I  =1 

•  NA 

Z  (  I  )  = 

Y  (  I  ) 

71 

CONT  I 

NUE 

GO  TO 

1  0 

75 

I  F  (  A 

• 

tu 

• 

AA  ) 

GO 

TO 

80 

A=AA 

DO  76 

1=1 

.  NA 

Y  (  I  )  = 

Z<  I  ) 

76 

CONTI 

NUE 

80 

I  F  (  KK 

. 

m 

o 

.  2) 

GO 

TO 

200 

IF(  KK 

o 

UJ 

. 

.  4) 

GO 

TO 

300 

I  F(  KK 

.EQ 

.  6) 

GO 

TO 

400 

I  F  (  KK 

.EQ 

.  12  ) 

GO 

TO 

51  0 

200 

A  l  =  A 

GOME  = 

SORT 

(A) 

GO  TO 

220 

210 

A=SM( 

1  )/Q 

(1,1) 

GOME=SQRT( A) 

220  T=2 . 0*PI*GOME 
WRITE(6.230)  T 

230  FORMAT (/IX, • NATURAL  PERIOD  OF  FIRST  MODE  IS»,F7.3.» 
I F ( N  .EO.  1)  RETURN 
WR I TE ( 6 , 240 )  (Y(I),I=1,N) 

240  FORMAT (  3X»  *  CORRESPOND I NG  MODE - 

I F ( N  .EQ.  2)  GO  TO  280 
DO  260  1=1. NA 

DO  250  J=1 .NA 
C(  I  ,  J)  =  H( I , J) 


SEC. • ) 


TOP  TO  BASE'/( 3X.7E18.6) ) 


■ 
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250  CONTINUE 

C( I , I 1=C< I . I ) —A 1 
Z ( I  )=H(  1  .1  ) 

260  CONTINUE 
NA=NA— 1 

DO  275  I =1 • NA 
DO  270  J=  1  *  N A 

H< I • J)=HC I+l . J+l )-Y{ I+l 1*Z< J+l) 

270  CONTINUE 
275  CONTINUE 
GO  TO  10 

280  DO  285  1=1. NA 

H(  I  ,  I  >  =  H{  I  •  I  )  —A  1 
285  CONTINUE 
GO  TO  10 

300  I F ( N  .EQ.  2)  GO  TO  375 
A2= A 

A=SQRT (  A  1 

T=2.0*PI*A 

WRI TE (6*310)  T 

310  FORMAT{/lX. • NATURAL  PERIOD  OF  SECOND  MODE  IS*»F7.3,«  SEC.*) 
315  DO  320  1=1, NA 
Z(  I  +  l )  =  Y ( I  1 
320  CONTINUE 
Z< 1>=0.0 
DO  340  1=1. N 
Y  (  11=0.0 
DO  330  J= 1 • N 
Y ( I  1=Y( I  1+CC  I  * J  )  *Z( J 1 
330  CONTINUE 

I F ( l  .EQ.  1 1  A=Y( l 1 
Y ( I  1=Y( I  1/A 
340  CONTINUE 

WRITE(6,2401  (Y(I1,I=1.N1 

I F ( KK  .EQ.  61  GO  TO  500 
I F ( N  .EQ.  31  GO  TO  365 
DO  350  I =1 .NA 
Y ( I 1=Z( I+l 1 
DO  345  J=l.NA 
D ( I . J)=H( I , J 1 
345  CONTINUE 

D< I . I 1=D( I. I 1-A2 
Z( I  1 =H( 1  .  I  1 
350  CONTINUE 
NA=NA— 1 
DO  360  1=1. NA 
DO  355  J= 1 , NA 

H(  I  , J1=H( I +1 . J+l  1-Y ( I+l  !*Z< J+l 1 

355  CONTINUE 
360  CONTINUE 
GO  TO  10 

365  DO  370  1=1. NA 

'  HI  I , I 1  =  H(  I. I 1-A2 
370  CONTINUE 
GO  TO  10 
375  A=A  + A  1 

A=SQRT  <  A 1 

T=2.0*PI*A 

WR I TE ( 6 . 3  1  0  1  T 

WRITEI6.2401  (Y(I!.I=i.Nl 


' 
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RETURN 

400  I F ( N  .EQ.  3)  GO  TO  440 
A3=A 

A=  SORT (  A  ) 

T=2 • 0*P I *A 
WRI TE  <  6 • 4 1 0  )  T 

410  FORMAT! /IX, • NATURAL  PERIOD  OF  THIRD  MODE  IS*.F7.3»* 
DO  420  1=1. NA 
Z<  1  +  1 )=YC  I  ) 

420  CONTINUE 
Z( 1 ) =0. 0 
N2=NA+1 
DO  435  1=1. N2 
Y< I ) =0 . 0 
DO  430  J=1 ,N2 
Y ( I  )  =  Y (  I  )+D(  I  *  J ) *Z( J ) 

430  CONTINUE 
435  CONTINUE 
NA=N2 
GO  TO  315 
440  A=A+A2 

A=SQRT (A) 

T=2 •  0*P I * A 
WRI TE(6»410  )  T 
GO  TO  315 

500  I F ( N  .LE.  3)  RETURN 
CALL  TCKYOl  (N.HH) 

NA=N 

DO  506  1  =  1. N 
DO  505  J= 1 . N 
H( I , J )=HH( I , J ) 

505  CONTINUE 

506  CONTINUE 
KK=  1 0 

GO  TO  10 
510  A=S0RT (A) 

T=2. 0*PI/A 
WR  I T  E  (  6.  52  0  )  T 

520  FORMAT (/I X, • THE  MINIMUM  NATURAL  PERIOD  IS*,F7.3,* 
WRI TE (6  »  240 )  (Y(I),I  =  1.N) 

RETURN 

END 

SUBROUTINE  TOKYOl  (NO, A) 

DIMENSION  AC(25) ,AB( 25) ,A( 25,25) 

NO 1  =  NO— 1 

A( 1 . 1 )=1 . 0/ A ( 1,1) 

IF  (NO  • EQ*  l)  RETURN 
DO  80  N= 1 ,  NO 1 
DO  50  1=1. N 
AB ( I )=0.0 
AC ( I ) =0  •  0 
DO  50  J= 1 , N 

AB(  I  )  =  A6(  I  )+A(  I  .  J  )*A(  J,  N+l  ) 

AC ( I )=AC( I )+A( N+l ,J)4A( J, I ) 

50  CONTINUE 
ACB=0 .0 
DO  60  1=1. N 

AC  E=  ACB+  AC ( I ) *A< I .N+1  ) 

CONTINUE 

A (N+l .N+l )=1 *0/( A (N+l, N+l ) — ACB ) 


SEC.  • ) 


SEC.* ) 


60 


- 
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DO  70  1=1. N 

A( N+1 . I )=-A<N+l ,N+1 ) *AC( I ) 

A  < I  • N+ 1 >=— AB(I  )  *  A  (  N  + 1 »  N+ 1 ) 

70  CONTINUE 

DO  80  I = 1 . N 
DO  80  J=1.N 

A( I *J)  =  A{  I »  J  )  — A ( I »  N+ 1  )*AC(J) 

80  CONTINUE 
RETURN 
END 

SUBROUTINE  KIKU  ( DELT AT , C , GOME , O. GOS A . G R , NC AL ) 

COMMON  NS»NB*STF(22S) »SH(25)»SPR(  5),SB(  4),RP(25,  5),UDL(25,  4) 
*. IOP( 225,2) , ION( 225, 2) ,  SLPLS( 225) . SLP<  22 5 , 2 . 5) . BE TA ( 22 5 , 2 . 7 ) . 

I  THE  T  A(225*2»6)  , IMA(  225,2)  ,PM0(225,2,2)  ,HXD(25)  ,HNL(25) 

2,  EMLAST (225,2)  ,KOSSAN( 2  25, 2 ) .  I NEG<  22  5,2 ) ,IPOS(225,2),PMC(225,2,2) 

3 ,  ROT  N ( 22  5 ) , POT MA X ( 2 2 5 ) , ROTM I N ( 22 5 ) 

DIMENSION  C(25)  ,0(25.25) 

DO  100  1=1, NS 
C( I  )  =  2.0*C(  I  )*Q(I  , I  )*G0ME 
100  CONTINUE 
NOST=NS 

CALL  TOKYC1 (NOST.Q) 

DO  140  1=1, NS 
HXD (  I  )  =  0  .0 
DO  130  J  =  1 , NS 

HXD ( I )=HXD(  I  )  — O ( I  , J ) *HNL( J ) 

130  CONTINUE 
140  CONTINUE 

DO  150  1=1. NS 
HNL ( I  )=0 .0 
150  CONTINUE 

WRI TE (6,160)  ( HXD( I ) • 1=1 • NS) 

160  F0RMAT(/1X, •  INI  TI  AL  DEFORMATION - TCP  TO  BOTTOM • / ( 6X , 8E 1 4 . 5 )  > 

TLAST=DELTAT*FLCAT(NCAL ) 


UNTIL* . 

4  X , • ACCE 
.F9.6 ) 


WRITE (6, 340 )  DEL TAT . TL A ST , GR , GOSA 
340  FORM AT(/1X, • CALCULATIONS  WILL  BE  DONE  EVERY • ,F6. 3, •  SEC. 

1 F5. 1 , •  SEC.*. 

2LERATI0N  OF  GRAVITY  I S * , F 8 . 3 , 4X , ' C ONVE RGE NC E  LIMIT  IS* 

RETURN 

END 

SUBROUTINE  JISHIN  (SM.CSM.C.IF.I GPH .GR.GOSA . NCAL , DELT AT , MX IT , NS  A I  , 
1  NT  OBU»THAJI.TCWA,SEICO,Q»  I  A , A  I  ,LTP,ITIME,IDI  SC) 

COMMON  NS,NB,STF( 225) ,SH( 25) . SPR(  5).SB(  4),RP(25,  5>»UDL(25»  4) 

* .1  OP ( 225.2)  . I  ON ( 225,2 ) . SL PLS ( 22 5 )  , SL P ( 225 , 2 , 5 ) , BET A ( 22 5 , 2 , 7 ) . 

1  THE T A ( 225.2  ,6)  ,  IMA( 225, 2)  »PM0(225,2 ,2)  ,HXD(  25)  , HNL ( 25) 

2. EMLAST ( 225,2 ) , KOSS AN ( 22 5 , 2 ) . I NE G ( 22 5 , 2 ) . I POS ( 225 , 2 ) , PMC ( 225 , 2 , 2 ) 

. 3 , ROTN (225) . ROT M AX ( 22 5 ) . ROTM I N ( 22 5 ) 

DI ME  NS  I  ON  GA(7 )  ,SM( 25) ,CSM( 25 ) , C( 25) . IP (25) , TSEI( 25 ) , AX( 25) , VX( 25) 
1  »XD(25)  , RX ( 2  5 )  , R V ( 2  5 )  , A  A ( 2  5 )  »C0(25). RESC (25)  .PESO (25)  , RXMX(25 ) , RV  M 
2X(25),C0MX(25),TRX(25),TRV(25),TCQ(25), OAX(  2  5)  ,OVX( 25 ) , OXD( 25) , 
30(25.25) , AI ( 150 ,  11), FT (225, 2). KO SAN (225, 2) , I PCH( 5 ) . XD MX( 25 ) , AAMX ( 

4  25)  , RC  MX (25)  ,RQMX(25) ,TR(25)  ,TRMX(25)  ,ZZ(25) 

I N  S A=  1  0 

I F ( I GPH  .GT.  5)  GO  TO  10 
GO  TO 

COMMENT  :  INPUT  STATEMENT  (ONLY  WHEN  PUNCHING  OUT  THE  RESULTS) 

1  RE  AD (5,100)  MSKIP.INSA.NPCH,  (IPCH(J)  ,J=1.NPCH) 

GO  TO 

2  RE  AD ( i 
NPCH=NS 


.  GT 

.  5)  GO 

1 .2) 

,  I  GPH 

PUT 

stateme 

100) 

MSK IP  . 

0 

100) 

MSK IP, 

■ 


1 00  FORM  AT (  1 0  I  5  I 
COMMENT  :  INPOT  STATEMENT 

10  INP=5 

IFdOISC  .EQ.  0)  INP=4 

READ  (  I  NP  »  1  5  )  (TSEK  I  )  .1=1  ,20) 

15  FORMAT (20  A4 ) 

I F ( LTP  .LT.  5)  GO  TO  30 
WRITEI6.  20)  (TSEI  (I  )  ,1=1  ,20) 

20  FORMAT(/lX. • BLAST  LOAOING  MODEL  USED  IN  THIS  CALCULATION  :  *,20A4) 

WRITEI6,  25)  SE ICO 

25  FORMAT(/lX, • MAXIMUM  BLAST  LOAD  IS*.F8.2,*  AT  THE  LEVEL  WHERE  THE  L 
1 0  AD  FACTOR  IS  EOUAL  TO  1.0*/) 

GO  TO  45 

30  WRI TE ( 6 ,  35)  ( T SE I C I  ) . I =1  . 2 0 ) 

35  FORMAT(/lX, 'SEISMIC  MODEL  USED  IN  THIS  CALCULATION  I  *,20A4> 

WR I TE ( 6 ,  40)  SE ICO 

40  FORMAT(/lX, • MAX IMUM  GROUND  ACCELERATION  IS*, F6, 3 , •  OF  GRAVITY  ACCE 
l LER  AT  I  ON  * / ) 

45  IF ( I GPH  .GT.  5)  GO  TO  60 
TK A  N=  DEL  T  AT 4 FLO  AT ( MS  K IP ) 

GO  TO  (46,56),  IGPH 

46  WRI TE ( 6 , 50 )  TK AN . ( I P CH ( J )  , J  =  l  , NPCH ) 

50  FORM  AT (  IX,  'THIS  PROGRAM  PUNCHES  OUT  THE  RESULTS  OF  EVERY*, F6. 3, 

1*  SEC.  FOR  THE  STOREY  NO . • , 5 ( I  5 . *  . *  ) / ) 

WRITE( 7, 55)  TKAN, NS, NPCH.  { IPCH( J )  »  J= 1 .NPCH) 

GO  TO  60 

56  WR I TE ( 6  »  57 )  TKAN 

57  FORMAT( 1 X, • THE  RESULT  OF  EVER Y* , F6 . 3 , • SEC . . FOR  EVERY  STOREY  IS  STO 
1  RED  I N  THE  DISK*/  ) 

WR I TE ( 2  »  55 )  TKAN  ,NS 

55  FORMAT (F 10 .3 ,  9X, 'PRODUCED  BY  PROG.#  40*,5X.7I5) 

60  WR I TE ( 6 ,  65) 

65  FORMAT (  /IX,* *4  RESPONSE  **• ) 

I F ( I  NS A  .LT.  5)  GO  TO  111 
IF ( LTP  .GE.  5)  GO  TO  75 
WRITEC6,  70) 

70  FORMAT (/2X.*TIME* »3X«*GRND  ACC/ • , 3X , • D I SP  TO  GRND • , 3X. • RELTV  D I SP • 
1  , 4X  »  • RELTV  VELO*  ,4X  ,  •  ABS  ACCEL *  . 3 X , • RES  I S  ( DAMP )  •  ,2X,  • RES  IS  (SPRN) 
2 • , 3X , *  SHEAR  COEF*  ,3X,*TIME*,7X,*  ITER*  ) 

GO  TO  85 
75  WRI TEC  6 .  80) 

80  FORMAT (/2X,  • TI ME*  . 3X  , 'BLAST  L 0/ •  , 3X ,  • DI SP  TO  GRND *. 3X,  • RELTV  D I SP * 
1,4X, 'RELTV  VELO*  ,4X ,' ABS  ACCEL •  , 3X , • RES  I S  ( DAMP)  •  , 2X , • RES  I  S  (SPRN) 
2* ,3X.  'SHEAR  CO EF •  , 3 X .  • T I  ME •  , 7X , •  I  TER • ) 

85  WRITE(6,  90) 

90  FORMAT! 12X,* STOREY* ) 

111  CALL  STIFF( 0, 1  ,AI •  IA  ,  ISHUT) 

IF( ISHUT  .EQ.  1)  RETURN 

I SAI =10 

DO  120  K=1,NS 

AX  (  K  )  =  0  •  0 

VX(K)=0.0 

IF(ABS(HXD(K) )  .LT.  1.0E-06)  HXD(K)=0.0 
XD(K)=HXD(K) 

RXMX ( K )  =  0  •  0 
TRX ( K ) =0 . 0 
RVMX( K) =0. 0 
TRV ( K ) =0 . 0 
CQMX ( K )=0  .0 
TCQ(K) =0. 0 


. 
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TRMX ( K  )  =  0 .0 
XDMX( K) =0 .0 

AAMX(K)=0 .0 
RCMX ( K )  =  0  .0 
RQMX(K)=0.O 
2Z(K)=GR/1 .0E+1 5 
120  CONTINUE 

MEMB=(2*  NB+ 1 ) *NS 
DO  125  1=1, MEMB 
DO  124  K=1 ,2 
KOS  AN ( I »  K  )  =  0 
KOS  S  AN ( I ,  K)  =  0 

124  CONTINUE 

125  CONTINUE 

DO  500  1=1 » NCAL 

IF(I  .EQ.  1)  READ( INP. 130 )  (GA( J > , J=1 ,7) 

130  FORMAT (7F1 0  .0 ) 

IYOMU=7*( 1/71 

I F (  I  .EQ.  IYOMU  .AND.  I  .LT.  NCAL)  RE AD C I NP ,  1 3 0 1  ( GA ( J 1  •  J= 1 . 7 1 

1 1  =  1— 7*{  ( 1-1  1/7  1 
I F ( I — 1 >  140,140.150 

140  GA 1 =0 . 0 
GA2=0.0 

GA3=GA( I  I ) *SEIC0 
I F ( NCAL  .GT.  1)  GO  TO  141 
GA4=0 . 0 
GO  TO  160 

141  GA4  =  GA(  1. 1  +  1  14SEIC0 
GO  TO  160 

150  GA 1=GA2 
GA2=G A3 
-GA3=GA4 

I F ( I  .EO.  NCAL)  GO  TO  151 
IF ( II  .EQ.  7 )  GO  TO  152 
G A4=GA(  I  I  +  1 ) *SE ICO 
GO  TO  160 

151  GA4=0.0 
GO  TO  160 

152  GA4  =  GA(  1  )*SEICO 
160  GAP=GA3 

TP=FLOAT( I ) 4DELTAT 
DO  190  K=1,NS 
OAX ( K ) = AX ( K ) 

OVX(K)=VXCK) 

OXD(K)=XD(K) 

190  CONTINUE 

CALL  SUCH  I  ( AX. VX.XD.RX , R V . SM , C . CS M , GAP , DELT AT , K AZU , R ESC , RESQ . MX I T 
1  ,TP  ,  ISAI , GOSA.Q.ZZ) 

I F ( I S A I  .GE.  0)  GO  TO  210 

205  DO  206  K= 1 , NS 
AX(K)=OAX(K) 

VX( K)=OVX(K ) 

XD ( K)=OXD(K) 

206  CONTINUE 

CALL  SAIBUN  (ISAI , A X . VX , XD . N SA I . T P . CELT AT . R X . R V . SM , C , C SM . K AZU , RESC 
1  , RE  SO • MX IT.GOSA.GAl »G  A2  »  G A3 . GA  4.Q, IA  .AI.KDI S .FT.KOSAN,  I  SHUT. ZZ) 

I F (  I  SHUT  .EO.  1)  GO  TO  510 
IFCKDIS  .LE.  0)  GO  TO  510 
GO  TO  214 

210  CALL  KYOTO( XD. I  A , AI ,  ICH  I  .FT, 1  ) 


. 
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I F { I CH I  .LE.  0)  GO  TO  214 

GO  TO  205 

214  I F ( LTP  .GE.  5)  GO  TO  225 
DO  215  K=1 ,NS 
AA(K)=AX(K)+GAP 

215  CONTINUE 
CQN=0.0 

DO  220  N=1,NS 
CON=CON-SM( N ) *  AAC  N  ) 

TRCN) =CQN 

CQ( N)=RESO(N)/CSM(N)/GR 
220  CONTINUE 
GO  TO  230 

225  DO  226  K=1,NS 
A A ( K ) =AX  C  K ) 

226  CONTINUE 
TOTM=0.0 


CON=0 • 0 

DO  228  N=1,NS 

TOTM=TOTM+SM(N) 

CON=CQN— SMC  N) * AA C  N  ) 

TR (N)=CON— CSMCN ) *GAP 
CQC N)=RESQCN ) /TOTM/GR 
228  CONTINUE 

230  IFCINSA  .LT.  5)  GO  TO  275 
IFCNTOBU  .EQ.  0)  GO  TO  239 
NTO= I /NTOBU 
NTO=NTC*NTOBU 
IF ( NT O  .NE.  I)  GO  TO  275 

239  DO  270  K=1,NS 

I F ( K  .NE  .  1 >  GO  TO  250 

WRI TEC  6. 2 40)  TP.GAP.XDCl)  »RXCl  )  .RVC1  )  »  AAC  1)  » RESCC  1 )  . RESOC  D.CQC1). 
1  TP. KAZU 

240  FORMAT  C1X.F6.3.1X.F10.5.1P7E14.5. 0PF7.3, I  10) 

GO  TO  270 

250  IFCTP  .GT.  THA J I  .AND.  TP  .LT  .  TOWA)  GO  TO  255 
IFCIPCK)  .LT.  0)  GO  TO  270 

255  WRI TEC  6. 260 )  K . XD C  K  )  .  RX  C  K  )  .  R V  C  K )  . AA C  K )  , RESC  C  K> .RESOCK)  .COCK) 

260  FORMAT  C 13X.  15  * 1P7E14.5) 

270  CONTINUE 
275  DO  350  K=1,NS 

IFCABSCRXMXCK)  )  . GE .  A8S  CRXCK) ) )  GO  TO  310 


RXMXCK)=RXCK) 
TRX  C  K ) =T P 

310  IFC  ABSC  R VMXCK )  ) 
RVMX  CK)=RVCK) 
TRVCK)=TP 

320  IFCABSCTRMXCK) > 
TRMX  CK )  =  TRCK ) 

325  IFC ABSCXDMXCK ) ) 
XDMXC  K)=XDC  K) 

326  IF C ABSC AAMXC K ) ) 
AAMX C  K)  =  AA(K ) 

327  IFC ABSCPCMXCK ) ) 
RCMXC  K)=RESCC  K> 

328  IFC ABSCROMXCK) ) 
RQMXC  K)=RESQCK) 
CQMX  CK)  =  CQCK) 


.GE.  ABSC  RVC  K ) )  )  GO  TO  320 


.GE.  ABSCTRCK)))  GO  TO  325 
. GE .  ABSCXDCK)))  GO  TO  326 
.GE.  ABSCAACK)))  GO  TO  327 
.GE.  ABSC  RESCC  K )  )  )  GO  TO  328 
.GE.  ABSC RESOCK) ))  GO  TO  330 


TCOC  K) =TP 


330  IFCZZCK)  .GE.  ABSCAXCK)))  GO  TO  350 


' 
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ZZ( K )=ABS( AX( K) ) 

350  CONTINUE 

IF ( I GPH  .GT.  5)  GO  TO  450 
NTO=MSKI P*( I/MSKI P) 

I F ( NTO  .NE.  I)  GO  TO  450 
DO  380  N= 1  * NPCH 
GO  TO  (335.360),  IGPH 
335  K= I PCH ( N ) 

KBT  M=NS— K  +  I 

WRI TE (7, 370)  KBTM  ,TP , XD ( K )  , RX  (  K  )  ,  RV  <  K  )  ,  AA  (  K  )  *  RESC ( K ) ,RESQ(K),CQ(K) 
GO  TO  380 
360  K=NS— N+l 
KBTM=N 

WRI TE (2 ,370  )  KBTM, TP . XD ( K )  , RX ( K )  . RV  < K )  , A A  (  K )  , RESC ( K ) ,RESQ(K),CQ(K) 
370  FORMAT ( I  2  »F  8  • 3* 1P7EI 0,3 ) 

380  CONTINUE 

450  CALL  NARA(KDIS.FT,KOSAN,TPl 
I F ( K D I S  .LE.  0)  GO  TO  510 
CALL  TIME( 1 ,0 ,LTI ME) 

I F( LT I ME  .GE.  IT I  ME )  GO  TO  510 
500  CONTINUE 
510  WRI TE ( 6 , 520 ) 

520  FORMAT (//IX, ’LIST  OF  MAXIMUM  VALUES®) 

WRITE(6, 530) 

530  FORMAT ( /3X  ,  ®STRY®  ,  2X ,  * DISP  TO  GND®  *3X,  ' RELTV  DISP  -  WHEN®  , 4X,  • RELT 
IV  VELO  -  WHEN®  ,4X , • ABS  ACCEL®  ,3 X ,® DAMP  RE SI S *  , 3X  ,  • SPRN  RESIS®.3X,® 
2SHEAR  COEF-WHEN® ,2X, 'TOTAL  SHEAR®) 

DO  550  K=i,NS 

WRI TE (6, 540 )  K , XD MX <  K ) .  RX MX ( K ) , T RX ( K ) , RVMX( K> , TR V ( K )  *AAMX(K)  »RCMX( 
IK), RQMX ( K ) , CQMX ( K ) ,TCQ( K ) . TRMX ( K ) 

540  F0RMAT(2X,I4.  1P2E13.3,2<  0PF8.3.1PE13.3),  l P2E 1 3 . 3 , OPF 1 0 . 4 , F 8. 3 , 

1 1PE13.3) 

550  CONTINUE 

IF ( I GPH  .GT.  5  )  GO  TO  600 

I F ( I GPH  .EQ.  1)  GO  TO  553 

IXXXXX=0 

XXXXXX=0 . 0 

DO  552  J=1.NS 

DO  551  JJ=1  .4 

WRITE(2,370)  I  XX  > XX, XXX XXX 

551  CONTINUE 

552  CONTINUE 
WRI  TE(3 ,555) 

GO  TO  557 

553  WRI TE ( 7 , 555 ) 

555  FORMAT! T55. *  MAXIMUM  VALUES,  PROG.#  40®) 

557  DO  570  J=1 ,NS 
K=NS-J+1 

RXMX(K)=ABS(RXMX(K) ) 

RVMX(K)=A6S( RVMX(K) ) 

COMX (K)=ABS(COMX( K) ) 

IF( IGPH  .EQ.  2)  GO  TO  558 

WRITE (7, 56  0 )  RXMX ( K ) , TR  X ( K ) , RVMX(K) . TR V ( K ) , COM  X( K ) , TCQ( K ) 

GO  TO  570 

558  WRITE(3,560)  RXMX ( K  )  , TR X ( K ) , R VMX ( K ) , TR V ( K ) , C QM X< K )  , TCQ ( K ) 

560  FORMAT(3( 1PE10.4, OPF 10,3) ) 

570  CONTINUE 

600  IF(LTIME  . GE .  I T I  ME  )  WRITE(6.610)  TP 
N J  01  NT = ( NB+ 1 ) *NS 
DO  1100  IXE=1 .NJOINT 


' 
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WRI TE(6. 1 102) 

SUMROT=ROTMAX( IXE)+ABS( ROTMIN( IXE) ) 

1100  WRITE (6, 1101)1 XE .POT  VAX (IXE)  .ROT  MI N(  I XE )  , SUMROT 

1101  FORMAT (I5.3E15.6) 

1102  FORMAT (/2X, • JOI NT  MAX  POS.  ROT.  MAX  NEG.  ROT  SUM  OF  POS.+NEG.*) 
610  FORMAT (// 1 X  .* **  CALCULATION  OF  RESPONSE  WAS  TERMINATED  BECAUSE  PRE 

1  PARED  COMPUTATION  TIME  HAC  BEEN  EXPIRED.  **  TP=».F7.3/) 

WRITE! 6. 999) 

999  FORMAT ( 1 H 1 ) 

RETURN 

END 

SUBROUTINE  SAIBUN  (  I S A I , AX . VX , XD . NSA I . TP , DELT AT , R X , R V , SM , C . C SM . 

1 K AZU  » RE SC .RESO.MXIT . GCS A , G A 1 . G A2 . G A3 , GA4 . Q . IA.AI , KDI S . FT . KOSAN. 

2  I  SHUT  »  ZZ ) 

COMMON  NS.NB, STF( 225) ,SH( 25 ) , SPR(  5),SB(  4),RP(25.  5),UDL<25.  4) 

* . IOP( 225.2) , I ON( 22  5. 2  > . SLPLSt  225 ) , SL P ( 225 . 2 , 5 )  , BETA (  22 5 . 2 . 7 ) . 

1  THETA ( 22  5,2 ,6)  ,IMA(22  5.2)  ,PM0(22  5,2.2),HXD(25)  ,HNL<25) 

2  *  EMLAST ( 22  5,2 )  , KOSS AN( 2  25 , 2 )  ,INEG(22  5.2),IPOS(22  5,2)  .PMC (225,2.2) 

3 • ROTN (225) .ROTMAX (225).RCTMIN(225) 

DIMENSION  A  X ( 25 )  »  VX  (  2  5 )  ,XD(25),RX(25).RV(25)  ,SM(25),C(25).CSM(25), 
1 RESC (25) ,RESQ( 25 ),0(25,25).AI(150.  11), FT (22 5, 2), KO SAN ( 225,2 ) , 

2ZZ ( 25) 

SA I N=FLCAT{ NSAI ) 

TP=TP— DELT  AT 
DO  460  J=1 .NSAI 
TBUN=FLCAT( J )/SAIN 
TP=TP+DELT AT/SAIN 

GAP=(GA4— 3,0* GA3+3 . 0*GA2-GA1 ) *T BUN** 3/6 . 0+( GA3-2 . 0*G A2+GA  1 )*TBUN** 
1 2/2 . 0- ( G  A 4-6 . 0*GA3+3  .0*GA2+2.C*GA1  )  *T BUN/6 . 0+GA2 
CALL  SUCH  I  ( AX. VX . XD . RX , R V . S M , C , C S M , G AP .DELT AT/S A  I N , K AZU . RE SC . R ESO 

1 . MXIT.TP.ISAI .GOSA.Q.ZZ ) 

CALL  KYOTO! XD , I  A , AI ,  ICH I , FT, 2 ) 

IF(ICHI  .LE.  0)  GO  TO  456 
DO  455  K= 1  *  NS 
HXD ( K ) =XD ( K ) 

HNL(K) =RESQ(K) 

455  CONTINUE 

CALL  STIFF(Q, 1 »AI» IA,  I SHUT ) 

I F ( I  SHUT  .EQ.  1)  RETURN 

456  I F ( J  .EQ.  NSAI)  GO  TO  460 
CALL  NARA(KDIS. FT. KOSAN .TP) 

I F ( KDI S  .LE.  0)  RETURN 

460  CONTINUE 
ISA  I  =  10 
RETURN 
END 

SUBROUTI  NE  SUCH  I  ( SAX , SVX . SXD , R X , RV , SM , C . CS M .GAP , DELT AT , K AZU . RESC, 
1RESO, MXIT.TP.ISAI, GOSA.Q.ZZ) 

COMMON  NS . NB . STF ( 22 5 ) » S H( 25 ) . SPR (  5)»SB(  4)»RP(25.  5)»UDL(25.  4) 

* ,1 OP(  225, 2)  , I ON( 22  5.2 ) , SLPLS( 22  5  ) ,SLP( 225.2  »  5) .BETA!  22  5.  2.7)  . 

1  THET  A( 22  5*2 ,6).IMA(225.2).PM0(225.2,2).HXD(25), HNL ( 25) 

2 . EMLAST (  22  5,2)  ,KCSSAN(225,2)  ,INEG(22  5.2),IP0S(22  5.2)  . P MC ( 225 , 2 . 2 ) 

3.  ROTN (225) . ROTMAX ( 225 ) .POT MI N( 225) 

DI ME NS I  ON  UX( 25)  »UA(  25)  »RX( 25),RV(25) «  SAX(25)  , SXD(  25)  .  SVX  (  25)  • 

ISM (25)  , C ( 25 )  ,CSM( 25)  ,IC0L(25)  .RESC (25) , RE SQ ( 25 ) , U V ( 2 5 )  . U  (  25 )  . 
20(25,25) ,ZZ( 25) 

KAZU=0 
MX I J=MX IT/2 
DO  100  N=1,NS 
U A ( N ) =S  AX ( N ) 


. 

' 


230 


100  CONTINUE 
110  KAZU=KAZU*-1 

DO  120  N=I.NS 

UV(N)=SVX(N) +(SAX(N )+UA(N) )*DELTAT/2.0 

UX{ N)=SXD(N) +(SVX (N) +(SAX( N)/3.0+UA( N ) / 6. 0 ) *DELT AT ) * DELTAT 
120  CONTINUE 

DO  200  N= 1 « NS 

NN=N-1 

CMA=0.0 

I F ( N  .EO.  1 )  GO  TO  140 
DO  130  K= 1 .  NN 

CMA=CMA+SM(K ) *UACK) 

130  CONTINUE 

140  IF ( N  .NE.  NS)  GO  TO  150 
ST=CMA+GAP«CSM(N) 

GO  TO  160 

150  ST=CMA+GAP*CSM(N)-C(N)*UV(N+1  ) 

160  RESQ! M=OQ(N,Q,UX ) 

U(N)=-(CC  N)*UV(  N ) +RES Q ( N)+ST)/SM(N) 

200  CONTINUE 
JHAN=0 

DO  400  N=1.NS 
I COL ( N) =0 

BUNB0=A6S  (U(N)-UA(N)  )/G0SA/100'.0+1.0E-35 
SHI = 1 .01*ABS(U(N)-UA(N) )/(ABS(U(N) )+BUNBO) 

IF ( SH I  .LT.  GOSA)  GO  TO  400 
SHI=1 0.0*ABS( U(N )-UA( N) )/ZZ< N) 

I F ( SH I  .LT.  GOSA)  GO  TO  400 
JHAN= JHAN+ 1 


ICOL( N)=IC0L( N) +1 

400 

CONTI NUE ' 

IF ( JHAN  .EQ. 

0 )  GO 

TO 

450 

I  F ( KAZU  .LT. 

MX  IT  ) 

GO 

TO 

420 

IF( I SA I  -LT. 

I SA I =— 1 0 

GO  TO  450 

0)  GO 

TO 

405 

4  05 

MX  I  I=MX I T+l 
IF ( KAZU  .EQ. 

MX  I  I  ) 

GO 

TO 

411 

DO  410  N=1 . NS 

IF(ICOLCN)  . 

EQ.  0 ) 

GO 

TO 

410 

WRITE! 6. 406 ) 

N 

406  FORMAT! 1 X. • CONVERGENCE  IS  NOT  ENOUGH  AT  STOREY  NO.*. 13) 

410  CONTINUE 

411  DO  415  N=1.NS 

I F (  I C  OL ( N  )  .EQ.  0)  GO  TO  415 

WRITE (6.412)  TP.N.UXC  N)  »UV(N)  . U ( N ) . RESQ { N ) * KAZU 
4  12  FORMAT (IX  .F6. 3.6X .I5.1PE14.5.7X.E14.5.7X.E14.5.14X.E14.5.21X.0PI10 

1  ) 

415  CONTINUE 

I F ( KAZU  .EQ.  MX  II)  GO  TO  450 
420  IF ( KAZU  .EQ.  MX  I J )  GC  TO  440 
DO  430  N=1.NS 
UA(N)=U(N) 

430  CONTINUE 
GO  TO  110 
440  DO  445  N=1.NS 

UA(N)=(UA(N)+U(N))/2.0 
445  CONTINUE 

MX  I J=MXIJ  +  (MXIT-MXIJ)/2 
GO  TO  110 


' 
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450  DO  455  N=i,NS 
SAX  CN)=UCN) 

SVX C  N)=UVC N) 

SXD(N)=UX(N) 

455  CONTINUE 

DO  470  N=1 ,NS 
I F ( N  .EQ.  NS)  GO  TO  460 
RXCN)=SXDCN)— SXDCN+l ) 

RV(N)=SVX(N)— SVXCN+l ) 

GO  TO  465 
460  RX(NS)=SXD(NS> 

RV( NS)=SVX(NS) 

465  RESC(N)=C(N)*RV(N) 

470  CONTINUE 
RETURN 
END 

FUNCTION  OQ  (N.Q.SXD) 

COMMON  NSiNB» STF (225) *SH( 25) • SPR(  5). SBC  4).RPC25,  51.UDLC25,  4) 

* • IOPC  22  5. 2 ) . I ONC  22  5, 2 ) , SLPLSC  22  5 )  , SLPC  225,2, 5)  .BETA ( 22  5.2 ,7)  . 

1 THET  AC  22  5. 2,6),IMAC22  5,2)  ,PMOC  225.2.2).HXDC25>  . HNL  C  2  5 ) 

2 .  EMLAST  C  225.2 ) .KCSSAN  C225. 2)  . INEGC  225. 2 ) . IPOSC  22  5.2)  , P  MC  C 225,2,2) 

3 ,  POTNC22  5)  .ROT  MA  X  C  22  5 ) • R  CT  MI NC225) 

DIMENSION  QC 25,25) ,SXDC 25 ) 

QQ=0.0 

DO  100  1=1, NS 
S H X  C=  S X D  C  I ) — HXD  C  I  ) 

QQ=OQ+QCN. I )*SHXD 
100  CONTINUE 

QO=HNLCN)+OQ 

RETURN 

END 

SUBROUTINE  KYOTO  C SX D , I  A, A  I ,  I CH I , FT ,  I  I Q ) 

COMMON  NS.NB.STFC 225) ,SHC25) , SPRC  5), SBC  4),RPC25*  5).UDLC25,  4) 
*, IOPC  225. 2) , I ONC  225, 2 ).  SLPLSC  225) , SLPC  225,2 , 5)  .BETAC  225,2,7). 

1 THET AC  225, 2 ,6 ) ,  IMAC  225, 2 )  ,PMOC  22  5, 2. 2)  ,HXDC  2  5)  ,HNLC  2  5) 

2 . EMLAST C  225.2 )  . K CSS AN C 2 2 5 . 2 ). INEGC 22 5, 2),  IPOSC 22 5, 2)  , P MC ( 225 , 2 , 2 ) 

3 ,  ROTNC  2  25 )  , ROT MAX C  22  5 ) . RCTMINC225) 

DIMENSION  SXD C25),BBC150)  .AIC  150. 11), FTC  22 5, 2)  ,EMC2)  ,CCCC  25) 
DIMENSION  EMSAVEC1 0) , FTSAVEC 10 ) 

DIMENSION  EMTEMPC 225,2) 

DIMENSION  FTKEPT C 225, 2) 

ICHI=0 

DO  100  1=1. IA 

BBC  I )=BC  I , SXD  ) 

100  CONTINUE 
NB1=NB+1 
NB2=NB+2 
NBB=2*NB+1 

CALL  SOLVE  C  A  I . B8. CCC ) 

DO  181  IXA=1,NS 
DO  181  I  X  E= 1 , NB  1 
J=C  C  I X A— 1  ) *3)  +  IXB 
JK=  C  C I  X  A— 1 ) *2) +IXB 
181  ROTNC JK) =EBC J) 

DO  300  1=1. NS 

IFCI  .EQ.  NS)  GO  TO  110 

R=  C  SXOC I  )— SXDC  1+1  ))/SHC  I  ) 

GO  TO  120 

110  R=S  XD  CNSl/SHCNS) 

120  DO  250  J  =  1  » NBB 


- 
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M=NBB* ( 1-1 ) +J 

I F ( STF (Ml  .LT.  1.0E-30)  GO  TO  250 
JJ= J-NB 

I F ( J  .GE.  NB1)  GO  TO  130 
KA=NB2*( 1-1 )♦ J 
KB=KA+1 
GO  TO  140 

130  KA=NB2* ( 1-1 ) +J-NB 

I F ( I  .EQ.  NS)  GO  TO  140 
KB=K A+NB2 
140  PA=  BBC  < A ) 

I F ( I  .EO.  NS  .AND.  J  .GE.  NB1 )  GO  TO  150 
PB=BB(KB) 

150  I F( J  .GE.  NB 1  )  GO  TO  160 
SS=SB{ J ) 

FR1=RP( I  .  J)/SS 
FR2=RP( I  ,  J+l )/SS 
FR3=l .0-FR1-FR2 
UL=UDL(I.J) 

DO  155  K= 1*2 

CALL  I2U  (VA»V8,M»K»FR1 »FR2* l »— 1 ) 

EM(K)  =  VA*PA  +  VB*PB-UHEN(  M  .  SS  ,  K  ,  UL  ,  0 . 0  .  FR  1  ,  FPL2  ,  1,-1) 

155  CONTINUE 

FEM=-UL*  IFR3*SS )**2/ 12.0 

FT ( M  *  1  )=— (2«0*EM(1  )— EM(2)— 3.  0*FEM) *F  R3/STF ( M ) /3 • 0+ ( 1 .  0  +  FR1/FR3) *PA 
1 +FR2*PB/FR3 

FT (M, 2) =-(2.0* EM (2)- EMI  1  )  +  3 . 0 *FE M ) *FR3/ STF ( M )/3.  0+FP 1 APA/FR3+ I  1 . 0  + 
1FR2/FR3) *PB 
GO  TO  180 
160  SS=SH( I ) 

I F ( I  .EO.  NS)  GO  TO  170 
DO  165  K= 1  *  2 

CALL  IZU  ( VA, VB.M .K, 0 .0 , 0 .0, 1 .- 1 ) 

EMI K)=VA*PA+VB*PB-UHEN( M, SS. K ,0 . 0, R ,0 .0 ,0 .0, 1,-1) 

165  CONTINUE 
GO  TO  175 

170  CALL  IZU  (VA.VB.M.l  ,0.0.0  .0,-1, -l) 

EM ( 1 )=VA*PA— UHENI M. SS.l ,0.0, R,0. 0.0.0, -1,-1) 

CALL  IZU  (.V.A,  VB.M, 3, 0.0, 0.0, -1,-1) 

EM( 2 ) = VA  *PA— UHE  N ( M,SS,3,0.0,R,0.0,0.0,-1,-1  )-EM(  1  ) 

I F ( SPR ( J  J  )  ,LE.  1.0E-5)  GO  TO  175 
PB=— EMI  2 ) /SPR ( J J ) 

175  FT! M,1  )=— (2.0*EM(  1 )  —  EMI  2)  ) / STF I M ) /3 . 0 +PA-R 

I F I  I  .EO.  NS  .AND.  SPR(JJ)  .LE.  1.0E-5)  GO  TO  180 
FTIM.2  )  =  -(2.0*EM(2)-EM(  1 )  ) / STF ( M ) /3 . 0  +  PB-R 
180  CONTINUE 

DO  182  K= 1,2 
EMTEMPI M ,K)=EM( K) 

182  FTKEPTI M. K )=FT (M, K ) 

DO  220  K= 1 , 2 

I F ( I  .EO.  NS  .AND.  J  .GE.  NB 1  .AND.  SPR(JJ)  .LE.  1.0E-5)  GO  TO  220 
IFI  IMA(M.K))  210,200,  190 
190  I CON= I MA(M.K) 

IPOSIM.K )=ICON 

IFIFTIM.K)  .GE.  T HET A I M , K , I CON )  .AND.  FTIM.K)  .LE.  THETA I M. K • I C ON+ 
11))  GO  TO  220 

IFIFTIM.K)  .GE.  T HET A  I M , K ,  I CON+ 1  )  )  GO  TO  195 
I CH I  =  I CH I +1 

IFIIIQ  .EO.  1)  GO  TO  220 
I MA I M , K ) =0 


' 
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GO  TO  220 

195  IF(IMA(M,K)  . EQ .  2)  GO  TO  220 
I CH  I  =  ICH  I  ♦! 

I F (  1  I  G  •  EQ  •  1)  GO  TO  220 

IMA(M.KJ=IMA(M,K)+1 
GO  TO  220 

200  IF(EMCK) ) 211,220. 191 

211  IF(KOSSAN(M»Kj .EQ.OJGO  TO  214 

212  IF(FT(M,K) .GT.THETA(M,K,INEG<M,KJ ) )GO  TO  220 
ICH I = ICH I +1 

IF(  IIQ.EQ.l )GO  TO  220 
I MA ( M.KJ =3— INEGIM.KJ 
GO  TO  220 

214  IF( EM(K J .GE.PMCt M.K.2 J J GO  TO  220 
I CHI = I CH I + 1 

IF(  IIQ.EQ.DGO  TO  220 
I MA ( M  *  K ) =— 2 
GO  TO  220 

191  IF(KOSSAN(M.Kj .EQ.OJGO  TO  194 

192  IF(FT( M,K) .LT .THETA ( M.K , IP0S(M,K )) JGO  TO  220 
ICHI=ICHI +1 

IF(  I  IQ.EQ.l  JGO  TO  220 
I MA(M,KJ  =  IPOSIM.K  J 
GO  TO  220 

194  IF(EM(Kj • LE .PMC (N.K.1JJGO  TO  220 
I CHI  =  I C  H I +1 
IF(  I  IO.EQ.l  JGO  TO  220 
I MA( M.KJ  =2 
GO  TO  220 

210  I C0N=3— IMA(M.K) 

I NEG  ( M.KJ  =  ICON 

IF(FT(M,KJ  .GE.  T HET A ( M ♦ K . I CON+ 1  J  .AND.  FT ( M.KJ  .LE.  THET A ( M , K , I  CO 
1 NJ  J  GO  TO  220 

IF(FT(M,KJ  .LE.  T HET A < M , K . I CON+ 1 J J  GO  TO  215 
I CH I = I CH I + 1 

IF(  I  I C  .EO.  1 J  GO  TO  220 

IMA(M,K!=0 

GO  TO  220 

215  IF(IMACM.K)  .EQ.  -2 J  GO  TO  220 
ICHI=ICHI+1 

I F ( I  I G  .EQ.  1J  GO  TO  220 
IMA(M,KJ=IMA(M»KJ— 1 
220  CONTINUE 
250  CONTINUE 
300  CONTINUE 

IF( ICHI .EQ.OJGO  TO  303 
306  GO  TO  304 

303  CONTINUE 

DO  305  IXC=1.NS 
DO  305  I  X D— 1 . NB 1 
JK= ( (  IXC-1  J  *2  J  +  IXD 
I F ( R OT  N(JKJJ310»305»311 

310  I F (  ROTN ( J K  J  . L T . ROTM I N ( J K J  J ROTM I N( JK J =ROTN ( J K J 
GO  TO  305 

311  I F ( ROTN ( JK  J .GT. ROTM AX ( JK J  J  ROT  MAX ( JK J = POT N ( J K  J 
305  CONTINUE 

304  CONTINUE 
RETURN 
END 

SUBROUTINE  NARA  ( KD I S . FT . KOSA N . T P ) 


' 


COMMON  NS.NB.STF( 225) ,SH( 25) , SPR(  5).SB(  4) ,RP( 25.  5),UDL<25, 

*.IOP( 225.2 ), I  ON (225. 2).  SLPL$(  22 5  )  . SL P ( 22 5. 2 . 5 )  , B ETA (  22 5. 2  * 7 )  , 
1THETA(225.2.6)  ,  I M A (  22 5 . 2 )  . PMO ( 22 5 . 2 . 2 )  . HX D<  2 5 )  ,HNL<25> 

2 .  EMLAST (  22  5,2)  . K OSS  AN ( 225 , 2 )  , INEG(225.2) .IPOS (225. 2) , PMC (225, 

3 .  ROTN (225)  ,ROTMAX(225) . RCTMI N(225) 

DIMENSION  FT ( 225.2 ) , KGSAN< 225. 2) 

KD I S= 1 0 

NB1=NB+1 
NB2=NB+2 
NBB=  2  4NB+ 1 
DO  360  1=1 
DO  350  J=1 
M=NBB*< 1-1 


NS 
NBB 

+J 

CER=2.5*  STF  (  M  ) 


DO  340  K= 1 
I F ( I MA ( H , K 
100  I F ( KOSAN ( M 
I F  (  I  M  A  (  M  .  K 
GO  TO  170 
110  KOSAN(M,K)=l 
KOSSAN(M.K 
I F ( J  ,GE. 

GO  TO  (111 


NB1 )  GO  TO  120 

115),  K 


111  WR ITE(6»1 12)  I.J.TP 


1  12  FORMAT (IX. 

1  BAY  NO. 

GO  TO  128 

115  WRITE(6.116)  I.J.TP 
1  16  FORM  AT ( 1 X . 

1  BAY  NO. 

GO  TO  128 

120  JC= J-NB 

GO  TO  (121 .125) *  K 

121  WR I TE (6,122)  I.JC.TP 


122  F0RMAT(1X, 

1  COL.  NO. 

GO  TO  128 

125  WR ITE(6,126)  I.JC.TP 

126  FORM  AT (IX, 

1  COL.  NO. 

128  IF ( I MA( M.K 
GO  TO  170 

130  IF (FT( M, K) 

I  P= I M A ( M  ,  K 
THET  A ( M . K  » 

IF ( IP.E0.2 
Y  A  =  SLP (M.K 
YB=  SLP (M.K 
PMO (M.K. 1 ) 


)  100.340,100 

K)  .EQ.  0)  GO  TO  110 
•GT.  0)  GO  TO  130 


=  1 


YIELD  AT  THE  LEFT  END  OF  THE  BEAM  —  STOREY  NO.*, 
♦  13, •;  T  I  ME  •  ,  F7  •  3  ,  •  SEC.*) 


YIELD  AT  THE  RIGHT  END  OF  THE  BEAM  -  STOREY  NO.'i 

T I  ME  * »  F  7  •  3  ,  •  SEC.*) 


YIELD  AT  THE  TOP 

• :  TIME* • F7 • 3 , * 


OF  THE  COLUMN 
SEC. • ) 


YIELD  AT  THE  BOTTOM  OF  THE  COLUMN 
,13,*;  T I  ME  * , F7 ,3 , *  SEC.*) 

.GT.  0)  GO  TO  130 

GE.THETA( M.K ,3 ) ) GO  TO  210 


STOREY  NO. • , 


STOREY  NO. • , 


P ) =FT (M.K) 

THETA( M.K, 1 >=FT( M.K) 

I  P+1 ) *FT( M.K )+BETA( M, K, IP+1 ) 

3  )  AT  HET  A(  M.K  ,2  )  +  B  ET  A  (  M  ,  K  ,  3) 

=Y  A 

PMC( M.K, 1 )=YB 

I F ( SLP ( M.K,1).GE.(2.5  ASTF  (  M ) )  ) GO  TO  131 
BETA(M,K,1)=YA-(SLP(M,K,1)*FT(M,K)) 

131  CONTINUE 

THETA(M»  K,4)=FT (M.K)  —  (YA/SLP( M.K. 1  )  ) 

SL  P ( M.K, 4 )=-PMC( M.K, 2 )/ ( THETA( M, K ,4 )-THETA(  M.K, 5)  ) 
BET  A( M.K  *4 )=-THET  A( M, K.4 ) *SLP(M,K,4) 

I NEG(  M  »  K ) =4 
GO  TO  340 

170  IF (FT( M, K ) .LE.THETA( M.K ,6 ) ) GO  TO  210 
PMO (M.K, 1 )=0.0 


4) 

2.2) 


13.  * 

13.  * 

13,  • 

13,  * 
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I N=— I  MA( M.K) 

THETAC  M.K,  IN+3 )=FT(M,K) 

YC=SLPC M.K,  IN  +  3  )*FT( M , K )  +  BET A ( M , K .  IN+3) 
YD=SLPCM,K,5)*THETACM,K,5)+BETACM,K, 5) 

PMC(M,K.2)=YD 

IFC SLPCM.K, 1 ) .GE. C2.5+STFC M) ) )G0  TO  171 
BETAC  M.K,  1  )=YC-SLP(M. K,  1  ) *FTCM, K ) 

171  CONTINUE 

THETACM.K.l )=FT(M,K)-(YC/SLP(M,K, 1 )) 

SLP ( M.K,2)  =  PMC(M,K,1)/(THETA(  M , K , 2 ) -THET A  (  M . K , 1 )  ) 

BETAC  M.K.2 ) =— THET  A ( M , K» 1  ) *  SL  PC M.K, 2) 

I POS  C  M , K )  =  l 
GO  TO  340 
210  KOI S=-l  0 

IFCJ  .GE.  NB1)  GO  TO  260 
GO  TO  C  220,240)  ,  K 
220  WRITEC6. 230 )  I  . J , TP 

230  FORMATC/1X, *  COLL  APS  E  AT  THE  LEFT  END  OF  THE  BEAM  —  STOREY 
13.*.  BAY  NO.0.I3,*;  T I  ME •  , F7 • 3 , •  SEC.*) 

GO  TO  340 

240  WRITEC6.250)  I . J , TP 

250  FORMATC/1X, ’COLLAPSE  AT  THE  RIGHT  END  OF  THE  BEAM  -  STOREY 

13,*,  BAY  NO.*,  13,*;  TIME*  «  F7 • 3 , *  SEC.*) 

GO  TO  340 
260  JC= J-NE 

GO  TO  C  27  0 , 290 )  .  K 
270  WRITEC6.280)  I.JC.TP 

280  FORM  AT  C/1  X. • COLLAPSE  AT  THE  TOP  OF  THE  COLUMN - STOREY 

13,*.  COL.  NO.*. 13.*;  TIME*,F7.3,'  SEC.*) 

GO  TO  340 

290. WRITEC6.300 )  I.JC.TP 

300  FORMAT! /I X, • COLLAPSE  AT  THE  BOTTOM  OF  THE  COLUMN  -  STOREY 

13.*,  COL.  NO.*, 13.*;  TIME* , F7 .3 ,  •  SEC.*) 

340  CONTINUE 
350  CONTINUE 
360  CONTINUE 
RETURN 
END 


NO. • ,1 


NO. * . I 


NO. • , I 


NO. *  .1 


APPENDIX  # 


M  -60  PROGRAM 
s  s 


E-l  Introduction 

This  program  has  been  developed  to  predict  and 
combine  the  deformations  due  to  flexure  and  shear  of  the 
cantilever  column  shown  in  Fig.  4-3.  The  background  to  the 
program  is  contained  in  Sec.  4-3. 

E-2  Input  Data 

First  Card:  NUMBER,  HEIGHT,  INTYPE 

Input  format:  (15,  F10.5,  15) 

NUMBER  =  Member  number 
HEIGHT  =  Height  of  cantilever 
INTYPE  =  Input  type  (usually  =  1) 

Second  Card:  VULT 

Input  format:  (F10.5) 

VULT  =  ultimate  shear  to  be  applied. 

Third  Card:  (C(I,J),  J  =  1,8) 

Fourth  Card:  (C(I,J),  J  =  9,16) 

Fifth  Card  :  (C(I,J),  J  =  17,24) 

Sixth  Card  :  (C(I,J),  J  =  25,30) 

Input  format  :( 8F10 . 5) 

(C  (I ,  J)  ,  J  =  1,20)  describe  the  input  M-P-<f>  relation¬ 
ship  as  shown  in  Fig.  E-3. 


C  (1 , 21) 


Axial  load 


C ( 1 , 22 )  = 

Cross  section  moment  of  inertia 

C  ( 1 , 2  3 )  = 

Cross-section  section  modulus 

C  (1 , 2 4 )  = 

Height  of  cross-section 

C  (1 , 25)  = 

28  day  concrete  compressive  strength 

(C(I,J) ,  J 

=  26,29)  describes  the  input  M-Ptf> 

relationship  as  shown  in  Fig.  E-3. 

Seventh  Card:  GAMMMA  1,  VI,  GAMMA  2,V2,  GAMMA  3,  V3 
GAMMA  1,V1  Coordinates  of  first  point  of  input 


• 

V-y  relationship  of  Fig.  E-2. 

GAMMA  2 , V2 

Cordinates  of  second  point  of  Fig.  E-2 

GAMMA  3,V3 

Coordinates  of  third  point  of  Fig.  E-2 

E-3  Description  of  Program 

The  program  is  described  in  Sec.  4-3  of  this 


dissertation. 
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FIG.  E-l  Flow  Chart  for  M  -60  Program 

s  s 


FIG.  E-l  (Cont'd)  Flow  Chart  for  M  -60  Program 

s  s 


( CA  'e  VWWV9) 
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FIG.  E-2  Input  V- y  Relationship 
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FIG.  E-3  Input  M-P-4>  Relationship 


non 


IMPLICIT  REAL  CM) 

REAL  KV 

DIMENSION  XPHI ( 300 ) . YMPHI (300 ) , XGAMMA(300) , YVGAM<  300 )  ,DEXPT( 300) ,D 
*  MAX ( 300  ) 

DIMENSION  DELTA (300  ),MMDATA(300)  • DFD AT  A (  300) 

DIME NS  ION  V  D  AT  A ( 3  0  0  )  • PDAT  A(  300).GDATA(300) 

DIMENSION  SLOPE ( 1 00 ) 

DIMENSION  MORIG(30) ♦  SS( 30  )  » DTKEPT( 30  0) . AVGR  AT ( 30 ) , BD M I D ( 30 0 ) , MKEPT 
1(30), DL (30), V( 30  )  , GAMMA (30). 0V( 30 ) iDF( 30) ,DT(30) , MDATA( 300 ) , ALPHA ( 
2  20)  *  MSTORE (3  0)  ,  C0UNT2( 3  0 )  .C0UNT3 ( 30 )  ,C0UNT4(  30  )  ,  COUNT 5 ( 30 ) .C0UNT6 ( 
33  0)  «  COUNT  7(30)  , C0UND8( 30 )  ,PATH(30)  ,PLASTO( 30  )  , ML  AST ( 30 )  ,PLAST( 30 ) , 
4MSAVE(3C) »PSAVE(30) »MSAVE1 (30) »PSAVEI(30) »S( 30) »  H ( 30 ) »  PH  I (30) »M(30 
5 )  ,CTROI D (30 ) . SPC( 30 )  , A  R  E A  M ( 30 ) , C ( 6 * 3 0 )  *  COUNT ( 3 0 )  .COUNT  1(30) 

01  MENS  I  ON  VKEPT ( 30 ) , VLAST ( 30 ) . GLA  ST ( 30 )  , VPATH ( 30 )  ,VSAV£(30) *  G  SAVE ( 
*30) . VSA VE 1(30). GSAVE 1(30) ,GLASTO(30) .COONT ( 30 ) .COONT 1 ( 3 
$0)  . C00NT3 (30 ) «  COONT  4 ( 30  ) . C00NT5( 30 ) . COONT 6 (  30)  .COONT7( 30 ) . COOND8( 3 
*0) 
c 

C  UNITS  ARE  KIPS. INCHES. 1/INCHES 

C 

C  READ  MEMBER  NUMBER,  HEIGHT,  AND  V  INPUT  TYPE 

C 

READ ( 5. 1 00) NUMBER .HE IGHT , INTYPE 
IF( I NTYPE.LT .1 ) GO  TO  13 
READ(5 .901 ) VULT 
13  CONTINUE 
VINC=0 .60 
C 

C  DISCRETIZATION  OF  MEMBER  HEIGHT 

C  AUTOMATIC  DIVISIONS 

C 

202  ND I V=2  0 

D I  VN=  ND I  V 

DI  V  =  HE I GHT/DI VN 

F=-l .0 

DO  9  1=1.  ND I V 

F=F  + 1.0  N 

S( I )=F*DI V 
9  CONTINUE 

S(  NDIV-H  )  =  HEIGHT 
DO  109  I=l,NDI.V 
109  H(  I  )  =  S( 1  +  1 )  —  S( I  ) 

WR I T  E ( 6 • 12  8) ND I V 

WRI TE ( 6  »  130 ) ( S (  I)  .  1  =  1 .NDIV ) 

WRI TE( 6 , 132 ) 

WRITE (6, 134) ( H( I ) .1=1 ,NDI V) 

DO  151  I=1,NDIV 
COUNT2 ( I )=0.0 
151  CONTINUE 

READS  M.PHI  AND  SECTION  PROPERTIES 


1  =  1 

RE  AD (5.901 )(C(  I.J).J=1.8) 

RE AD (5. 901) (C(I.J)*J=9.16) 
READ(5,901)(C(I.J).J=17,24) 
RE AD (5.901 )(C( I ,J).J=25,30) 


. 


o  o 


WRITEI8,  939 ) 

WRITE!6»937 ) NUMBER  *  C ( 1.21  ) 

WRI TE( 8.926) C( 1 , 1 ) .C( I .2) 

WRITE! 8 ,927 >C< I ,3 ) .C( 1,4) 

WRI TEC  8. 928 )C(  I ,5),CC 1,6) 

WRITE(8.929)C( I ,7 ) ,C( I, 8) 

WRITE(8,93  0)C<  I  ,9  )  ,C(  I.  10) 

WRITEC8, 93 1)C(I,11) , C ( I ,12) 

WRITEC8, 932 )C(  I,13),C(I,14) 

WRITEC8.9 33 )C(  I,15),C(  1,16) 

WRI TEC  8. 934) C!  I,17),C(I,18) 

WRITE(8  »935)C(  I,19),CCI,20) 

WRITE!8.940)C!  I, 26), C< I, 27) 

WRI TEC  8, 941  )C(  I  ,28)  ,C{ I ,29) 

WRI TEC  8, 938  )C(  I,22),C(I.23),CCI,24),CCI,25) 
WRITE! 8,939) 

NNODES=ND I  V+l 
C 

C  READ  V-GAMMA  RELATIONSHIP 

C 

READ! 5, 901 ) GAMMA 1 ,  VI ,GAMMA2,V2. GAMMA3. V3 
WRI  TEC  8,4  567) GAMMA 1  ,V1  , G A MMA2 , V2 , G AM MA3 , V 3 
4567  FORM  AT C6E20 .1 0 ) 

WRITE! 8,970) 

970  FORMAT  ! // • THE  V  -  GAMMA  RELATIONSHIP  USED  • // 
WRITE! 8,939) 

GA1=VI/GAMMA1 

GA2=  C  V2— V 1  )/! GAMM  A2— GAMMA  1  ) 

GA3=C V3-V2)/! GAMM A3-GAMMA2 ) 

COONT  2=0 • 0 
GAT =  GA 1 
GAT 1=GA1 
GAMM 1 l =— GAMMA 1 
GAM M2  1 =— GAMM A2 
GAM M3 1 =— GAMM  A3 
VI 1 =— VI 
V2  1  =—  V  2 
V3 1 =— V3 

DO  780  1  =  1, NNODE  S 
M ! I  ) =0  «  0 
MKEPT! I )=0»0 
MLAST! I )=0 .0 
780  MSTORE! I )=0 .0 
K  1  =  1 

717  CONTINUE 
C 

STORE  MOMENT  AND  DEFLECTION  DATA 

IF! K1 .EQ. 1 ) GO  TO  310 
DTKEP  T ! K 1  —  l )=DT! NNODE S) 

DFD  AT  A ! K l  —  1  )  =  DF ! NNODES) 

DEXPTCK1-1 )=DTOP 
BDMIDCK1-1) =DV ! NNODES ) 

MDATA! K  1-1 ) =MLA  ST ! 1  ) 

VD AT  A ! K 1  —  1  )  =  VLAST ! 1  ) 

PD AT  A ! K 1  —  1  ) = PL  AST  !  1  ) 

GDATACK1-1 )=GLAST ! 1 ) 

31 0  CONTINUE 
704  V  I NC=  VI NC  +  O  *01 
960  FORMAT !3F10. 5) 


' 
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I F  (  INTYPE.  GT.  0. 0  >  VTOP  =  V  I  NIC*  VULT 
IF ( K 1 «GT • 1 ) GO  TO  315 
925  IC=1 

MCR=C< IC. 1 ) 

PH  I C  R=C (  IC.2) 

MY=C ( I C • 3 ) 

PH I Y=C (  I C*  4 ) 

MFY=C ( I C • 5 ) 

PH I F Y=C ( I C • 6 ) 

MWY=C< IC.7I 
PHI WY=C< IC. 8) 

MULT=C< I C  .  9  ) 

PHI ULT=C( IC.10 ) 

MCR1=C( IC. 1 1  ) 

PHI CR1=C( IC. 12) 

MY 1 =C ( I C  *  1 3 ) 

PHI Y1=C< I C  *  1 4 ) 

MFY1=C( IC.l 5) 

PHI FY 1 =C  C  IC. 16) 

MWY 1 =C ( IC. 17) 

PHIWY1=C( IC.18) 

MULT1=C( IC.l 9) 

PH I UL 1 =C ( IC.20 ) 

AX I ALL=  C ( IC.21  ) 

XNI=C< IC.22) 

XNS=C( IC.23) 

FSUBC=C( IC.25) 

MSSH=C( I C . 26) 

PHI SSH=C ( IC.27) 

MSS  H 1 =C (  IC.28) 

PH  SSH 1  =  C  ( IC.29) 

E I 0=MCR/ PH I CR 
MODP=ESTEEL*XNI/£IO 
EIG=( MY-MCR)/ ( PHI Y-PHICR) 

ESH=( MFY-MY ) / ( PH  I FY-P F I Y ) 

EFY= ( MWY-MFY) / ( PHI WY-PHIFY) 

EWY=( MULT— MWY ) / ( PHI ULT— PH I WY ) 
EI01=MCR1/PHICR1 

EIG1=( MY1-MCR1 )/( PH IY1-PHICR1) 

ESH 1 = ( MFY 1— MY1 )/< PHIFY1-PHIY1 ) 

EF  Y 1  =  (  MWY 1- MFY 1  )/( PH  I WY 1 -PH I FY 1  ) 

EWY 1  =  ( MULTI- MWY 1  ) / ( PH  I UL 1 -PH I WY 1 ) 

ESSH=<  MSSH-MULT )/ (PH ISSH-PHIULT ) 

ESSH1  =  (MSSH 1-MULT  1  )/( PH SSH 1 -PH  I UL 1 ) 

I F ( MSSH 1 . EQ.O .0 )ESSH1=EWY1 
IF(MSSH.EQ.O.O) ESSH=E  WY 
IF( MSSH. EQ .0 .0 )MSSH=MULT 
IF(MSSH1 .EQ.O .0 )MSSHI=MULT1 
IF (PHISSH. EQ.O.O) PHI SSH =PH I ULT 
IF ( PHSSH 1 .EQ.O.O )PHS SHI =P HI UL1 
8  E I T=E I O 
E I T 1 =E I O 1 
315  CONTINUE 

WRITE(6,950)K1 , VTOP 
I F(COUNT8. GT.O. 1 ) GO  TO  311 
GO  TO  314 

C 

C  WRITE  STORED  MOMENT  AND  DEFLECTION  DATA 

C 


311  WRITE(8*313) 


' 


o  o  o 
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K 1  =  K 1  t  1 

OQ  16  IA=1,K1 

16  WRI  TE ( 6,316)  MD  AT  A (  I  A )  *DTKEPT (  I  A)  • VDATA  (  I  A)  ,  GOAT  A (  I  A)  • MDAT  A  (  I  A )  .  PDA 

*  TA(  IA) 

DO  4100  NA=1 ,K1 

DEL=VDATA! NA) *<  HE IGHT **3) /! 3.*EI0 ) 

DELTA! NA)=! DTKEPT! NA ) -DEL ) /HEIGHT 
41 00  MMDATA ( NA)=MDAT A( NA) - ( AXI  ALL*  DTKEPT  (NA)  ) 

DO  4400  NA=1,K1 

WRITE! 6.3 161DEXPTCNA ) .DTKEPT! NA ) . DFD AT A  !  N A )  *  BDM I D ! N A ) . MMD ATA ! NA ) • 

*  DELTA ! NA ) 

4400  CONTINUE 

WRI TE! 8.4409) 

44  09  FORMAT !/9X, *  MOMENT*  , 1 4X , • DELTA-THETA • , 9X, • SLOPE'/) 

CONTR=0.0 
DO  4401  NB=2 , K 1 

SLOPE ! NB)=! MMD ATA! NBl-MMD ATA t NB-1 ))/! DELTA! NB)— DELTA! NB— 1 ) ) 

IF! MD  AT  A!NB)  .GE.MFY )GO  TO  4403 
GO  TO  4404 

4403  IF! CONTR.GT.O . 1 ) GO  TO  4404 
SMl=MMDATA(NB-l ) 

SD1=D£LTA! NB-1 ) 

CONT  R= 1.0 

4404  CONTINUE 

440  1  WRI  TE ! 8.3 1 8) NB . MMDATAINB)  .DELTA! NB ), SLOPE ! NB ). MDAT A ! NB ) , DTKEPT! NB ) 
318  FORMAT! 15. 5!2X,E20. 12)) 

SM2  =  ! MMDAT  A ! K 1  1+SM1  )/2 . 

SD2  =  !DELTA( K1  )  +  SDl  )/2. 

WRI TE! 7 , 44  08 ) SD1  .SM 1  ,SD2  .SM2 . DELTA! K 1  ) , MMDATA! K1  ) 

4408  FORMAT! FI  0 .7, FI  0 . 1 ,F1 0. 7, FI  0 . 1 .F 10 . 7.F 1 0.  1 ) 

INPUT  AND  OUTPUT  PLOTS 

XPH I ( 1 )=PHSSH1 
YMPHI ! 1 )=MSSH1 
XPH I !2)=C! 1 .20) 

YMPHI ! 2 ) =C< 1.19) 

XPH I !3)=C! 1.18) 

YMPHI !3)=C! 1.17) 

XPHI !4)=C< 1 . 16 ) 

YMPHI  !4)=C! 1 .15) 

XPHI !5)=C! 1.14) 

YMPHI !5)=CC 1 . 13 ) 

XPHI  ! 6 ) —C ! 1 .12) 

YMPHI !6)=C( 1.11) 

XPHI { 7 ) =0 • 0 
YMPHI ! 7 ) =0.0 
XPHI ! 8 ) =C! 1 .2 ) 

YMPHI !8)=C! 1.1) 

XPHI !9 )=C! 1.4) 

YMPHI ! 9 ) =  C! 1.3) 

XPH I ! 1 0 ) =C! 1.6) 

YMPHI ! 10 )=C! 1 .5) 

XPHI! 1 1 )=CI 1.8) 

YMPHI ! 1 1 )=C! 1.7) 

XPHI ! 12 ) =C! I . 10 ) 

YMPH 1112 )=C ! 1 . 9) 

XPHI ! 1 3 )=PHI SSH 
YMPHI! 13)=MSSH 
XGAMMA! 1 ) =GAMM31 


- 


V  u 


YVG  AM ( 1  >=V3 1 
XGAMMAC  2>  =GAMM21 
YVGAM( 2)=V21 
XGAMMA(3 )  =  GAMM1  1 
YVG  AM C  3  > =V 1 1 
XGAMM A(4 )=0 .0 
YVG  AM { 4 )  =0 • 0 
XGAMMAC 5 )  =  GAMM  A 1 
YVGAMC5>=V1 
XGAMMAC  6>  =GAMMA2 
YVGAMC6 )=V2 
XGAMMAC  7 )=GAMMA3 
YVG AMC  7) =V3 
314  CONTINUE 
K1=K1+1 
YYY=0. 0 
CHECK=0 .0 
COUNTF=0 .0 

IFC COUNTS. GT.O. 1 ) CALL  EXIT 
DO  520  I  =  1 »  NNODES 
COUNT3C I ) =0 . 0 
COUNT 4  C I  )  =  0 .0 
C0UNT5C I )=0 .0 
COUNT  6  C I >=0.0 
DL  C  I >=0.0 
520  CONTINUE 
720  CONTINUE 
C 

C  COMPUTE  V  AT  EACH  NODE 

C  - 

DO  701  1=1, NNODES 

701  V  C I  >  =  VTOP 

CALCULATE  GAMMA  FOR  EACH  DIVISION 
C 

VCHECK=0 .0 
DO  1520  1=1, NNODES 

COONT3C I )=0.0 
COONT4 C I )=0 .0 
C00NT5C I >=0.0 
C00NT6C I >=0.0 
1520  CONTINUE 

WRI  TE  C  6 , 1  1  60  > 

1160  FORMAT  C 1 SX,  •  V»  ,  13X,  •  GAMMA  *  .SX.'GLASTO'.SX.*  GSAVE*  , 8X, • VSAVE* 
* • GSA VE 1 *,5X,*VSAVEl*/> 

DO  1063  1=1 »NDIV 
C00NT2  =  C  OQNT  2  +  1  .0 
IFCCOONT2.GT • 1 . 0 ) GO  TO  1051 
DO  1050  KK=1, NNODES 
GAMMACKK>=0.0 
VLASTCKK>=0.0 
GL AST  CKK>=0 .0 
VSAVEC  KK >=0 .0 
GSAVECKK>=0 .0 
VSAVE1 C  KK ) =0 .0 
GSAVE 1 C  KK )  =  0.0 
VKEPT  CKK)=0 .0 
COONT7C  KK  >=0 .0 
COOND8C  KK>=0 .0 
1050  GLASTOCKK)=0.0 


- 


1051  CONTINUE 

I  Ft  V{ I )) 1 017. 1032 , 1019 

1019  I F(  V (  I ) 4VLAST t  I  ))  1046. 1046. 1 047 

1046  COONT(1)=0.0 

IFt VKEPT t I) .GE.VLAST t I > > GO  TO  1215 
1261  CONTINUE 

IF(VLASTd)  .LT.VSAVE1  (I  )  )  GO  TO  1423 
GO  TO  1047 
1 423  COONTSt I  >  =  1  .0 
GO  TO  1215 

1047  CONTINUE 

IF(V( I ) .LT. VLASTt I ) )GO  TO  1030 
1591  CONTINUE 

IF(C00NT4 ( I ) .GT.O . 1 ) GO  TO  1028 

1207  IFt ABStGLASTOt I  )  )  .GT. 1 . 0E-09)GO  TO  1031 

1048  IF( V< I ) .LE. VI )GO  TO  1020 

1208  IF< V(  I  ) .LE.V2 )GO  TO  1021 
1598  CONTINUE 

GAMMAt I )=GAMMA2+(  ( V ( I  )-V2)/GA3) 

VPATH (I ) =1 8. 

GO  TO  1023 

1020  GAMMAt I ) =Vt I >/GAl 
GLASTOd  1  =  0.0 
VPATH ( I )=1 . 

GO  TO  1023 

1021  GAMMAt I >=GAMMA1 +( ( V ( I )-Vl )/GA2 ) 

VPATHtI ) =2 • 

GO  TO  1023 

1031  I F l COONCSt I ) .LT  .0.9) GO  TO  1248 
GO  TO  1631 
1248  V  SA  VE (  I  )  =  V  1 

GSAV  E  <  I )  =  GAMMA1 

1631  IF( V( I ) .GT.VSAVEt I ) ) GO  TO  1048 
1499  CONTINUE 

GANOW=VSAVE< I )/t GSAVEt I >-GLASTO( I  )  ) 
GAMMAt I  )  =  V  (  I ) /GANO W+GLAST  Ot I  ) 

VPATHtI >=3. 

GO  TO  1023 

1030  COONT t I )=COONTt I ) +1 . 0 

IFtCOONTt I) .GT.1.1 >GO  TO  1028 

1209  VSAVEt I )=VLASTt I ) 

GSAVEt I )=GLASTt I ) 

COONT 4t I  )  =  1  .0 

1028  IFt GSAVEt  I )  .LE.GAMMAl  )GO  TO  1035 

1210  IFtGSAVEt I ) .LE.GAMMA21GO  TO  1033 

1211  GAT  X  =  GAT. 

GAMMAt I  )=GSAVEt  I  )—  t  t  VSAVEt  I )  — Vt  I  )  ) /G ATX  ) 
GLASTOt I  )=GSAVEtI  )-tVSAVEt  I )/GATX  ) 

IF t C00NT6 t I ) .GT .0 . 1 ) GO  TO  1049 

1490  CONTINUE 
VPATHtI )=4. 

GO  TO  1023 

1033  G  AT Y=  t  V  SA  VE  t  I  ) — VI  1  )/tGSAVEtI)-GAMMll) 

GAMMAt  I  ) =GS  A V  E  t  I  ) - t t V SA VE t  I  ) - V t  I  )  ) /G AT Y ) 
GLASTOt  I  >  =  GS AVE ( I  )  — t VSAVEt  I ) /GATY  ) 
IFtCOONT6tI ) .GT.O.i ) GO  TO  1049 

1491  CONTINUE 
VPATHtI >=5. 

GO  TO  1023 

1035  CONTINUE 


' 

- 


IFIC00NT6II ) .GT.0.1 ) GO  TO  1049 
1492  CONTINUE 

GAMMA ( I )=V< I )/GAl 
GLASTO! I  )  =  0.0 
VPATH ( I ) =1 1 . 

1023  CONTINUE 

IF( V( I) .LE.O .0 )GO  TO  1262 
I F ( V CHECK • GT  .0.1) GO  TO  1301 
1302  CONTINUE 

VKEPT! I )=VLAST! I ) 

1301  CONTINUE 

VL AST ( I )=V( I) 

GLAST! I )=GAMMA( I ) 

COOND8! I )=1 .0 
GO  TO  1044 

1017  I F ( V ( I ) 4 VLAST  (  I  ))  1098,1 098, 1 04  9 
1 098  COONT1 ( I ) =0. 0 

IF{ VKEPT!  I )  .LE.VLAST!  I ) >GO  TO  1209 
1262  CONTINUE 

IFIVLASTI I) .GT.VSAVE(I) )GO  TO  1422 
GO  TO  1049 
1422  C00NT6I I >=1 .0 
GO  TO  1209 
1049  CONTINUE 

IF( V( I ) .GT. VLASTI I > )GO  TO  1039 
1592  CONTINUE 

IFICOONT3I I ) .GT .0 .1 ) GO  TO  1041 

1212  IFIGSAVEI I) .LE.GAMMAl )GO  T01036 

1213  GO  TO  1037 

1036  IFIV(I).LT.Vll) GO  TO  1040 

1214  GAMMA! I )=V( I J/GAl 
.  VPATH ( I ) =6 . 

GO  TO  1024 

1040  IFIV(I)  .LT.V21) GO  TO  1404 
3100  CONTINUE 

GAMMA! I  ) =GA  MM 1 1 + ! ! V i I  ) - V 1 1 ) /G A2 ) 

VPATH! I ) =7 • 

GO  TO  1024 
1404  CONTINUE 

GAMMA! I )=GAMM21  +  !  ! V ! I )— V2 1 )/GA3> 

VPATH ! I ) = 1 9 • 

GO  TO  1024 

1037  IF! C00NT7! I ) . LT .0 .9 ) GO  TO  1236 
GO  TO  1632 

1236  VSAVE1!  I  )=V1 1 
GSAVE1 !  I  )  =  G AMM 1 1 

1632  IF! V! I )  .LT. VSAVE1  I  I )  )GO  TO  1036 

1237  GANOW1 =VSAVE1 ! I )/! GSAVE1 ! I J-GLASTO! I ) ) 
GAMMA!  I )  =  GLA ST O ! I  )  +  ! V  !  I  l/GANOWl ) 

VPATH ! I )=8. 

GO  TO  1024 

1039  COONT1 ! I )=COONT 1 ! I ) +1 . 0 

IFICOONT1 ( I ) .GT.1.1 ) GO  TO  1041 

1215  GSAVE1 ! I ) = GLA ST ! I ) 

VSAVE1 ( I ) =VLAST! I ) 

COONT3! I )=1 .0 

1041  IFIGSAVEI ! I ) .GE.GAMM11 )GO  TO  1042 

1216  IFIGSAVEI I  I )  .GE.GAMM21  ) GO  TO  1043 

1217  G AT 1 X  =  G AT  1 

GAMMA! I ) =GS AVE 1 !!)—(! VSA VE III ) -V ! I ) ) /G AT l X ) 


' 


GLASTO(  I)  =  GSAVE1 < I )  — ( VSAVE 1 (  I  >/GATlX  ) 

IF! C00NT5! I > .GT .0 . 1 ) GO  TO  1047 

1493  CONTINUE 
VPATH(I ) =9. 

GO  TO  1024 

1042  CONTINUE 

GAMMA! I ) = V ( I )/GAl 
GLASTOd  )  =0  •  0 

IF ( COONT5 ( I  ) • GT  *0*1 ) GO  TO  1047 

1494  CONTINUE 
VPATHd  )  =  1  4  • 

GO  TO  1024 

1043  GATY  1= (  V1-VSAVE1!  I  )  ) / (GAMMA  1 -GSA VE 1 ( I )  ) 

GAMMA! I  )  =  GS  AVE 1 (I)-((VSAVEl!I)-V(I) ) /GAT Y1 ) 

GLASTO!  I  )  =GS  AVE 1 (  I ) - ( VS A V E 1 (  I  ) /GATY 1 ) 

IF(COONT5(I ) .GT.O.i ) GO  TO  1047 

1495  CONTINUE 

VP  ATH ( I )  =  1 0 • 

1024  CONTINUE 

IF! V! I ) .GE.O.OIGO  TO  1261 
IF ( VC  HECK . GT .0. 1 ) GO  TO  1303 
1304  CONTINUE 

VKEPT (  I  ) =VL  AST ( I ) 

1303  CONTINUE 

VLAST! I )=V( I ) 

GLAST ( I  >=GAMMA(  I  ) 

C00NT7 ( I )=1 .0 
GO  TO  1044 

1032  IF! VLAST ( I )) 1045, 1044,1 096 

1045  GAT3=(V1— VSAVE1  (  I  )  )/( GAMMA 1  —  GSA VE  1  ( I  )  ) 

IF! VSAVE1 ! I ) .LE.V21 ) GAT3=GAT 1 
GLASTO! I )=GSAVE1 ! I )-! VSAVE1 ( I >/GAT3) 

IF(VSAVEl! I) .GE.V11  ) GLASTO!  I  ) =0 • 0 
GAMMA! I )=GL ASTO! I ) 

VPATH ( I ) =12. 

IF! VCHECK.GT.O i 1 )GO  TO  1322 
1326  CONTINUE 

VKEPT! I ) =VL AST ( I ) 

1322  CONTINUE 

VLAST! I >=V( I ) 

GO  TO  1044 

1 096  GAT2=! VS AVE!  I  )-Vl 1  )/ ! GSAVE!  I )— GAMM1 1 ) 

IF! VSAVE! I) .GE.V2)GAT2=GAT 
GLASTO! I ) =GS A VE ( I)-!VSAVE(I)/GAT2) 

IF! VSAVE!  I>  .LE.V1  ) GLASTO!  I  )  =  0 .0 
GAMMA! I  ) =GL  ASTO ( I  ) 

IF! VCHECK. GT  .0 . 1 )GO  TO  1324 
1328  CONTINUE 

VKEPT! I )=VLAST! I ) 

1324  CONTINUE 

VL AST ( I  >=V!  I  ) 

VPATH!I)=13. 

1044  CONTINUE 

WRI TE !6.  I  50)  I  . VPATH ! I ) , V! I  ) , GAMMA! I )  , GLASTO!  I )  »  GSAVE (  I )  ,  VSAVE! I  ) 
♦GSAVE1 ! I ) , VSAVE 1 ( I) 

1063  CONTINUE 

DO  42  1  I  =  1 , N  NODES 
421  D V ( I ) =0 . 0 

DO  709  I =2 , NNODES 
K=I-1 


- 


n  n 


250 


DO  709  J=1,K 

DV< I )=DV( I >+( GAMMA (J ) *H( J ) ) 

709  CONTINUE 
C 

C  COMPUTE  M  AT  EACH  NODE 

C 

M ( NNODES >=0.0 
M(  I ) =VT OP* HE  I GHT 
DO  14  1=2. NNODES 

14  M(  I  )=M( 1  )  * { HE I GHT— S ( I ) ) /HEIGHT 
418  CONTINUE 

WRITEI6.907) 

DO  799  1=1, NNODES 
MSTOREI I >=M( I > 

799  WRITE (6.909 ) I . V ( I > , GAMM A (  I > , MKEPT ( I ) .ML ASTI  I  >  , M STORE!  I  > 
CALCULATE  PHI  AT  EACH  NODE 

718  WRI TE( 6. 160 ) 

PHI  ( NNODES ) =0  •  0 
PL AST C( NNODES > =0 .0 
KA=1 

DO  63  I=K A, NDI V 
IF(M( I ) .GE. MULT )GO  TO  3331 
GO  TO  3332 

3331  K1=K1— 1 
COUNT  8= 1  .0 

I F ( COUNT 8.E0.1.0JGO  TO  311 

3332  CONTINUE 
C0UNT2 ( I )  =  C0UNT2(  I >  +  1  .0 
IF(COUNT2( I ) .GT .1 .1 ) GO  TO  27 

754  CONTINUE 

PLAST  0 ( I  >  =  0.0 
MLAST ( I >=0.0 
PLAST ( I >  =  0  .0 
MSA VE ( I ) =0 . 0 
PSA VE (  I >  =0  .0 
PS AV E 1 ( I >=0  .0 
MSA VE 1 (I >=0.0 
COUNT7 ( I >=0.0 
C0UND8 ( I )=0 .0 
27  CONTINUE 

IF(M ( I >  >  17 ,32.19 
19  I F ( M{  I  )#  MLAST (I)  >46,46.47 

46  COUNT ( I >  =  0 .0 

I F( MKEPT ( I ) .GE .MLAST ( I > ) GO  TO  215 
261  CONTINUE 

I F ( ML  AST ( I ) .LT • MS AVE 1 ( I  >  >GC  TO  423 
GO  TO  47 

423  COUNT5 ( I )=1 .0 
GO  TO  215 

47  CONTINUE 

IF( M( I ) .LT. MLAST( I > ) GO  TO  30 
591  CONTINUE 

IF (C0UNT4 ( I > .GT.O . 1 ) GO  TO  28 

207  IF< ABS( PLASTO( I )> .GT . 0. 000000000 1 > GO  TO  31 

48  I F ( M (  I  )  .LE. MC  R ) GO  TO  20 

208  I F( M (  I)  .LE.MY1GO  TO  21 
598  CONTINUE 

IF( M( I ) .GT. MFY) GO  TO  800 
PHI  (  I  >=PHIY  +  ( (  M(  I  )-MY  >/ESH> 


801 


- 
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PATH(I >=18- 
GO  TO  23 

800  IF(M(I).  GT •  MWY ) GO  TO  802 

PH I ( I ) =  PHIFY-M (M( I )-MFY>/EFY> 

P  ATH ( I ) =20 • 

GO  TO  23 

802  I F ( M( I)  • GT  «MULT)G0  TO  880 

PHI ( I  )=PHI WY+( ( M(  I )  — MWY )/E  WY I 
PATH ( I ) =21 • 

GO  TO  23 

880  PHI ( I )=PHIULT+< ( M ( I ) -MULT ) /ESSH ) 

PATH ( I )  =  24. 

GO  TO  23 

20  PHI  (  I  )=M(  I3/EIO 
PL AS TO ( I } =©• 0 
PATH ( I )=l . 

GO  TO  23 

21  PHI (I )=PHICR+((M( I)-MCR)/EIG) 

PATH ( I )=2. 

GO  TO  23 

31  IF(C0UND8(I ) .LT.0.9>GO  TO  248 
GO  TO  631 
248  MSAVE(I)=MCR 

PS AV  E (  I >=PHICR 

631  IF(M( I ) .GT.MSAVE( I) )G0  TO  48 
499  CONTINUE 

EINOW=MSAVE (  I  >/(PSAVE( I  >-PLASTO(  I ) ) 

PHI (I  )  =  M(  I)/E  INOW+PLASTOt  I ) 

PATH (I )=3. 

GO  TO  23 

30  COUNT ( I )= COUNT ( I ) +1  •  0 

I F  C  COUNT (  I )  . GT • 1 • 1  ) GO  TO  28 

209  PSAVE( I )=PLAST( I ) 

MSAVEI I ) =ML AST ( I ) 

COUNT 4  < I  »  =  1  .0 

28  IF( PSAVEI I }  .LE .PHICR ) GO  TO  35 

210  I  F( PSAVEI I ) .LE.PHI Y ) GO  TO  33 

211  EITX=EIT 

PHI ( I  ) =PS  AVE ( I  )-( (MS  A VE (  I  )-M(  I )  ) /E IT  X ) 
PLASTO( I >=PSAVE (I)-(MSAVE(I)/EITX) 

IF (C0UNT6C I )  .GT .0 . 1  )  GO  TO  49 

490  CONTINUE 

P  ATH ( I ) =4 • 

GO  TO  23 

33  EITY=( MS AVE ( I )— MCR1 )/( PSAVE( I )-PHICRl ) 
PHI ( I )=PSAVE( I)-((MSAVE(I)-M(I))/EITY) 
PLASTOC  I  )=PSAVE(  I  )-(  MSAVE(  I  )/EITY) 

IF (C0UNT6( I ) .GT .0 . 1 ) GO  TO  49 

491  CONTINUE 
PATH  (  I  )  =  5  «• 

GO  TO  23 

35  CONTINUE 

IF( C0UNT6( I )  .GT  .0 . 1 ) GO  TO  49 

492  CONTINUE 

PHI ( I )=M( IJ/EIO 
PLASTO( I >=0.0 
P AT H(I )=1I  • 

23  CONTINUE 

IF(M(I). LE  «  0 • 0 ) G  O  TO  262 
IF( CHECK. GT .0.1) GO  TO  301 


' 


302  CONTINUE 

MKEPT ( I  )  =  ML  AST {  I ) 

301  CONTINUE 

ML AST ( I )=M( I ) 

PL AST ( I )  =  PHI ( I ) 

COUND8C I  1  =  1 .0 
GO  TO  44 

17  IF( M( I ) * ML A ST (1)198.98*49 
98  COUNT1 ( I )=0 .0 

IFCMKEPTII )  • LE  .  ML AST ( I )  ) GO  TO  209 
262  CONTINUE 

IF( MLASTC I » .GT.MS AVE( I) ) GO  TO  422 
GO  TO  49 

422  COUNT6 ( I  1=1  .0 
GO  TO  209 
49  CONTINUE 

IF(M( I ) .GT.MLASTI I) )GO  TO  39 
592  CONTINUE 

IF(C0UNT3( I ) .GT .0. 1 ) GO  TO  41 

212  IF(PSAVE(  I) .LE.PHICR1GO  TO  36 

213  GO  TO  37 

36  IF( M< I ) .LT.MCR1 )GO  TO  40 

214  PH  I ( I )  =  M(  Il/EIOl 
PATH ( I )=6. 

GO  TO  24 

40  IF( M( I ) .LT.MY1 )GO  TO  404 
2100  CONTINUE 

PHI ( I ) =PH ICR l+< ( M ( I ) — MCR 1 ) /E I G 1 ) 

PATH ( I ) =7 • 

GO  TO  24 
404  CONTINUE 

IF( M< I ) .LT. MFY1 )GO  TO  803 

804  PHI ( I ) =PHI Y 1 + ( ( M{ I )— MY1 1/ESH1 ) 

PATH { I ) = 1 9 • 

GO  TO  24 

803  IF(M( I ) -LT.MWY1 )GO  TO  805 

PHI  (  I  ) =PH I F Y 1 +  <  ( M ( I  )-MFYl l/EFYl ) 

PATH ( I  1  =  22. 

GO  TO  24  ... 

805  IF( M( I ) .LT.MULT1 )GO  TO  881 

PHI ( I )=PHIWYl+< (M< I l-MWYl l/EWYl ) 

P  ATH ( I  )  =  23 • 

GO  TO  24 

88  1  PHI ( I  ) =PH IUL 1 +(  (M(  I  )- MULTI 1/ESSH1  ) 

PATH ( I )  =  2  5 • 

GO  TO  24 

37  IF (C0UNT7( I ) . LT .0 .9 ) GO  TO  236 
GO  TO  632 

236  MSAVE1 ( I )=MCR1 
PSAVE1 ( I )=PHICR1 

632  IF(M( I ) .LT. MSAVE1 C I ) ) GO  TO  36 

237  E I N0W1=MSAVE1  (  I  )/ ( PSAVE 1 (  I  )  — PLAST 0(1  ) ) 
PHI (  I  )=PLASTO(  I  )  +( M<  I  l/EINOWl  ) 

PATH ( I >  =8 • 

GO  TO  24 

39  COUNT1 ( I >=C0UNT1 ( I >+l .0 

IF( COUNT  1 < I  ) .GT . 1  . 1 > GO  TO  41 

215  PSAVE1 C  I  )=PLAST ( I  ) 

MSAVE1 ( I  ) =MLA ST (  I  ) 

COUNT  3 (I )  =  1  *  0 


' 


41  IF(PSAVE1 ( I  >  .GE  .PHICR1 )G0  TO  42 

216  IF1PSAVE1 ( I ) .GE.PHIY1 ) GO  TO  43 

217  E I T 1 X  =  E I T 1 

PHI ( I )=PSAVE1 ( I > -( (MSAVEl ( I >-M( I ) J/EIT1X) 

PLA  ST  0 (  I  ) =PS A  V  E 1  (  I )  —  ( MSAVEl C  I I/EIT1X) 

IF(C0UNT5( I ) .GT .0.1 ) GO  TO  47 

493  CONTINUE 
PATH ( I ) =9 • 

GO  TO  24 

42  CONTINUE 

PHI ( I )=M( IJ/EIOl 
PLASTOt I ) =0 • 0 

IF(COUNT5( I ) .GT .0. 1 ) GO  TO  47 

494  CONTINUE 
PATH (I ) = 1 4 • 

GO  TO  24 

43  EITY1=( MCR-MSAVE1 ( I )  ) / ( PH  I CR-PSA VE 1 (  I  )) 

PHI  <1  ) =PSAVE1  (I  >-(  (MSAVEl  (  I  >-M(  I  )  l/EITYl) 

PLAST0( I  >=PSAVE1  (  I >-(  MSAVEl  (  I  l/EITYl  ) 

IF( C0UNT5( I  )  .GT  .0. 1 ) GO  TO  47 

495  CONTINUE 
PATH ( I 1=10. 

24  CONTINUE 

IF(M( I) .GE.0.01G0  TO  261 
IF ( CHECK. GT  .0*2) GO  TO  303 
304  CONTINUE 

MKEPT( I >=MLAST( I ) 

303  CONTINUE 

ML  AST ( I  )=M( I ) 

PL  AST ( I ) =PH I ( I ) 

COUNT7 ( I >=1 .0 
GO  TO  44 

32  IF( MLAST ( I > 145.44.96 

4  5  EIT3=<  MCR-MSAVE1  (  I  )  ) / ( PHI C R-PSA VE1  (I  )) 

IF (MSAVEl (I).LE.MY1)EIT3=EIT1 

PLA  ST  G(  I  )=PSAVE1  (  I  )-( MSAVEl  (  I  I/EIT3) 

IF ( MSAVEl  ( I )  .GE • MCR1  ) PLASTO( I )=0 .0 
PHI ( I >=PLASTO( I ) 

PATH ( I )  =  12  . 

IF( CHECK*  GT  .0.1  ) GO  TO  322 
326  CONTINUE 

MKEPT ( I ) = ML AST ( I ) 

322  CONTINUE 

MLAST ( I >=M( I > 

GO  TO  44 

96  EIT2=(MSAVE( I J-MCRl >/( PSAVE( I ) — PH I CR 1 ) 

IF(MSAVE(  I ) .GE  .MY )E IT2=EIT 

PLAST  O ( I  ) =PS AVE (I)-(MSAVE(I)/EIT2) 

I F ( MS  AV  E(  I  )  .LE. MC  R ) PLAST  O ( I  >  =  0 .0 
PHI ( I  )=PLASTO(  I  ) 

IF ( CHECK • GT  .0.1  >  GO  TO  324 
328  CONTINUE 

MKEPT ( I )=MLAST( I  1 
324  CONTINUE 

MLAST ( I  )=M(  I  ) 

PATH ( I ) =13. 

44  CONTINUE 

WRITE ( 6. 1 50 )  I  »  P  ATH ( I  ) . M (  I  )  , PH  I ( I  )  ,  PLAST  0(  I  )  . PS AVE ( I )  , MSA VE ( I  )  . PSA V 
1E1  ( I  )  .MSAVEl (  I  ) 

63  CONTINUE 


' 


o  on 
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CURVATURE  INTEGRATIONS 

SSI NNODES )=HE  I GHT 
00  1501  1  =  1 »  ND I V 

SS(I)=S(I> 

SI  I >=HE IGHT-St 1  +  1  ) 

1501  CONTINUE 

DO  1507  NODE  =  l  «  ND IV 
H I GH=SS I NODE+1 ) 

DO  1503  K= 1 »  ND  I  V 
SI K) =HIGH— SSI K+ 1 ) 

I  =  K 

IFISIK)  )91 • 1505,1505 
1505  CONTINUE 

IF! (PHIt I ) +PH I I I  + 1 ) ) .EQ.O.OIGO  TO  91 
755  CONTINUE 

IF(PHI(I  +  1)*PHI I  I )  ) 180*  181»  181 
1 8  0  D2ERO  =  ABS(PHI I  1  +  1  ) )/ I A3S I  PHI  I  1+1  )  H-ABSl  PH  1 1  I )  )  )*H( I ) 

DLEFT=HI I )— DZERO 

ARE AM 1  =  PH 1 1  1+1  ) *DZcR0/2 . *  I DZERO/3 ,  +  S I  I ) > 

AREAM2=PHI I  I >  4DLEFT/2 .*1 2 . SDLEFT/3 .+DZERO  +  SI  I  ) ) 

ARE AM  1 1  ) =AREAM1 +AREAM2 
GO  TO  183 
181  CONTINUE 

CT  ROI D  1 1  )  =  I  PH  II  I  +  1  )  +  I 2.*PHI  II))  )/!3,*IPHI(  I  ) +PHI I  I  +  i  )  )  )*H<  I ) 
SPCI  I  ) =S II) +CTRO  ID!  I  ) 

ARE AM  I  I  )  =  I I  PHI I  I  ) +PHI  l I +1  )  )/2 .  >*SPCI  I  )  *H(  I  ) 

GO  TO  80 
91  ARE  AM  II) =0 • 0 
183  CONTINUE 
80  CONTINUE 
1503  CONTINUE 

DO  1502  1=1 »NDI V 

1502  SI  I  )  =  SSt  I ) 

DFt  NNODES )=0 ,0 
DO  2101  K=1  *  ND I  V 

DF I NNODES )=DF I NNODES ) +AREAMIK) 

2101  CONTINUE 

AVGR  AT  I NODE+ 1  )  =  DF I NNODES ) 

1507  CONTINUE 
AVGRATI 1 )=0 .0 

DO  1508  1=1, NNODES 

1508  DFI  I )  =  AVGRAT I  I ) 

DO  710  1=1 .NNODES 

710  DTI  I )=DF(  I  )+DVI  I ) 

WR I TE I  6 , 908 ) 

CGUNTG=0.0 

919  CONTINUE 

DO  711  1=1, NNODES 

711  WRITE  I 6. 910 )  I, MI  I ), DU  I  >,DT{ I ) ,OFt I ) ,DV(  I  ) 

911  CONTINUE 

DO  1510  1=1, NNODES 

1510  IF( YYY.LT.O .8)MORIGI  I  )  =  MI  I  ) 

IFIDTI14)*MI 14) >451,450.450 
451  SA  X= AX I  ALL 
AX  I ALL=0 .0 
COUNT  G= 1  .0 
450  CONTINUE 

DO  411  1=1 .NNODES 


■ 

. 
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M(I)=MORIG(I)+(AXIALL*(DT( NNODES) — DT Cl))) 

YYY=YYY+1  . 

411  CONTINUE 

IFCCOUNTG.GT.O. 1  ) AX  I ALL=S AX 
IFCCOUNTF.GT .0. 1 )GO  TO  717 

721  IF( ABS( DT (NNODES )-OL ( NNOOES )) .LT .0 .0 1 )GO  TO  717 
DO  722  1=1, NNODES 

722  OL ( I ) =DT { I ) 

CHECK=1 -0 
GO  TO  718 

100  FORMATC I5.F10.5. 15) 

128  FORMAT(/*DI STANCES  FROM  BASE  TO  NODE *, 1  OX ,•  NUMBER  OF  DlVISIONS=*. 
1  14/) 

130  F0RMAT(20( IX  »  F5  « 1 ) ) 

132  FORMATC/* HEIGHTS  OF  DIVISIONS*/)  ' 

134  FORMAT(25( 1X,F4.1 ) ) 

150  FORMATC 13. 2X, ‘PATH* , F 5 . 1 , 7E 1 2 .3 ) 

1  60  FORMAT  C18X»*M*  , 1 3X , *  PH I  *  , 5X , • PLASTO*  »8X, »  PSAVE*  ,8X,  •  MSAVE*  »5X, 

1 • PSAVE1  •  ,5X , • MSAVE l • /  ) 


313  FORMAT (/‘OUTPUT  MOMENT  AND  DEFLECTION  VALUES*/) 

501  FORMAT ( 20 A4 ) 

901  FORM  AT (8F10.5) 

902  FORMAT (/2X»*  MOD.  RATIO*  ,7X, • DEPTH*  ,7X,*THICK*.5X,*STIRRUP*,2X,*  CON 
1C. SHEAR*  »  6  X ,  •  ESTEEL*  ,6X,*C0UNT9*  ) 

904  FORMAT(8(2X,F10.2 ) ) 

90  5  FORMATC 1 8X,  •  INCHES'  , 6X.  •  I NCHES *  , 2X, *  PERCENTAGE*  »8X, • KI PS* ,8X,  *KSI ' 

1/) 

9  07  FORMATC /12X, • V(  I  ) *  ,7X. • GAMMA ( I )  * ,4X,  *M(N0W-2 ) •  ,3X , •  M( NOW-1  ) •  ,5X ,  •  M 
1  (NOW ) •  ) 


908 

FORMAT (  1 2X, • M (  I  ) •  , 7X  » • DLAST 

' . 5X,  •  D 

TOTAL* , 

*) 

909 

FORMATC I4.2X , 

F10.2.2X.E10.2 

, 3( 2X.F 10.2)  ) 

910 

FORMAT ( I4,6(2X,F10.2)  ) 

926 

FORMAT ( 

•  MCR 

=  *  ,F1 5.2.  *  PHI 

CR  =* 

. E12.4) 

927 

FORMAT ( 

•  MY 

=  *  »  F 1 5.2, *  PHI 

FY  =  • 

, E12.4) 

928 

FORMAT ( 

•  MFY 

=* ,F1 5.2. *PHI 

FY  =• 

,  E  l  2. 4) 

929 

FORMAT ( 

•  MWY 

=  •  , FI  5.2.  • PH I 

WY  =  • 

, E12.4) 

930 

FORMAT ( 

*  MULT 

=  *  »  F 1 5 • 2 , *  P  H I 

ULT  =• 

, E12.4) 

931 

FORMATC 

•  MCR  1 

=  '  ,F1  5.2, • PHI 

CR1  =• 

»  E  1  2  •  4  ) 

932 

FORMATC 

•  MYl 

=  *  »  F 1 5 • 2  » *  PH  I 

Y  1  =  * 

, E12.4) 

933 

FORMAT ( 

*  MFY  1 

=  •  ,F1 5.2,  • PHI 

FY1  =  • 

, E12.4) 

934 

FORMATC 

•  MWY1 

=  •  .FI  5 .2, *  PHI 

WY1  =• 

, E12.4) 

935 

FORMATC 

•  MULT  1 

=  •  , FI  5.2.  *  PHI 

ULT 1  =• 

. E12.4) 

940 

FORMATC 

'  MSSH 

=  •  .FI  5.2,  *  PHI 

SSH  =• 

. E12.4) 

94  1 

FORMATC 

• MSSH1 

=  • .FI  5.2.  'PHI 

SSH 1  =* 

, E12.4) 

316 

FORMAT  C//6C  2X 

, E20 .9  )  ) 

937 

FORM  AT ( // • THE 

M-P-PHI  CURVE 

FOR  MEMBER  • , I 

•  AXIAL  LOAD  =*,F8.1/ 

*/) 

938  FORMAT ( • XNI  = *  , F 1 5 . 2 , • XNS  = •  , F 1 0 . 2 . *  HE  I GH T  = *  . F 1 0 . 2 .  * FSUBC  =*,F10. 
*2) 

939  FORMAT  (  •  *AA***$****$<‘*#=<'$  +  ’M‘**********##:<'£*#***'A:**#*#**A*A:£**A**** 


950  FORMAT (/• INCREMENT  NUMBER  =*.I3.*  SHEAR  ON  COLUMN  =*,F7.2) 
STOP 
END 


FILE 


' 


' 


